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What is CoCo Max? Simply the most incredible graphic 
and text creation “system” you've ever seen. You will be 
generating images like these in minutes. 

Who is CoCo Max for? Anyone who has ever held a 
pencil for fun, school or business will love it. A 6-year old 
will have fun doodling, a 15-year-old will do class projects, 
and adults will play with it for hours before starting useful 
applications (illustrations, artwork, business graphics, 
flyers; Charts, memos, etc) This is one of the rare programs that will be 

enjoyed by the whole family. 

Just point and click to activate CoCo Max's powerfui features. 

including mirror images, rubber banding, edge tracing. zoom. lasso. 

sixteen colors. thirty patterns, thirty-two paint brush shapes and 

textures, undo. rubber stamping. icons, pull down menus. cencil. spray 

Can. eraser, toolbox, and SO on, and So on... 

The Hi-Res Input Pack is the key to CoCo Max's unmatched 

power It gives you direct access to the 49.152 pixels on your 

screen That's 12 times the regular joystick input. It looks like a 

ROM pack. and plugs into your CoCo or Multipak. Your regul1r 

joystick, Mouse. or Koala Pad simply plugs into the Hi-Res Pack. - - 41 
Whether you are an artist or an accountant, evenif site Eait Goodies Font Style 
you are the “| can't draw’ type. you will be amazed 
by what you can do with CoCo Max. 
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Disk System a Multipak or Y SYSTEM REQUIRED: 
Adaptor 1s needed fo plg - Any 64K COCO. 
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VISA 


MK 1 SERIAL/PARALLEL 


CUSTOM ELECTRONICS 
PRINTER INTERFACE 


HARDWARE: 


EARS= VOICE RECOGNITION SYSTEM INC ROM 


CONNECT CO-CO I or II to a PARALLEL PRINTER PACK, MICROPHONE & SOFTWARE. . . . $180.00 
Revised MK1 PRINTER INTERPACE AUDIO/VIDEO CARDS= DRIVES ANY MONCHROME 


Peatures: MONITOR .. . $35.00 installed 


* EXTRA SERIAL PORT for MODEM,no more plugging CED ICE OF ee COMPLETE IN CASE $180.00 


/unplugging cables. 

* Compatible with Standard Centronics Parallel# DRIVES= NATIONAL SSDD POWER SUPLY & CASE 
Printers eg: BPSON,GEMINI,BMC,CP8O,TANDY ETC. ... $200.00 
Plugs into CO-CO or CO-CO II Serial Port and TEC DSDD SLIMLINE .. . $180.00 
includes all cables and connectors. SUITABLE FOR TANDY 1000 
SIX Switch selectable Baud rates CONTROLLER & CABLE READY TO GO $460.00 
300, 600, 1200, 2400, 4800, 9600 
Power Pack is required for Printers not SOFTWARE: 


supplying power at pin 18 on the Parallel ALL MUSICA RANGE — MUSIC LIB, SYNTHER 77, 


Connector eg: EPSON, BMC,CP8O. il STEREO PAK, COMPOSER etc... P.O.A. 
Increases Printing Speed by up 


to 30% on TANDY DMP100/200 Printers And much more so phone or write for a FREE CATALOG 


NOW ONLY — $89.95 (including postage) CUSTOM ELECTRONICS 


Add $9 for Power Pack if required 28 STIRLING ST, 
STRATHPINE, 4500. 


PH (O07) 205 4941. 
AV : G. . 
ee OE 0. BOX 46 : AUST DEALER FOR:- 


THORNLBIGH. NSW.2120 ————— SPEACH SYSTEMS 
phone: (02 )-84-3172 
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Pascal Pascal * 
Workbench 


EET 


ENCOM 


AVAILABLE FROM — 2nd Floor, 20 McDougall St. EDUCATION 
OR YOUR TANDY STORE  tetephone: 369 e299 SOFTWARE 
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Please note that all the BASIC program 
listings you find in THE RAINBOW are 
formatted for a 32-character screen — 
so they show up just as they do on your 
CoCo screen. One easy way to check on 
the accuracy of your typing is to com- 
pare what character “goes under” what. 
If the characters match — and your line 
endings come out the same — you have 
a pretty good way of knowing that your 
typing is accurate. 

We also have “key boxes” to show you 
the minimum system a program needs. 
But, do read the text before you start 
typing. 

Finally, the little cassette symbol! on 
the table of contents and at the begin- 
ning of articles indicates that the pro- 
gram is available through our RAINBOW 
ON TAPE service. An order form for this 
service is on the insert card bound in the 
magazine. 


Tats) aoe Ore] Ore, 


CoCo is an affectionate name that was 
first given to the Tandy Color Computer 
by its many fans, users and owners. 

However, when we use the term 
CoCo, we refer to both the Tandy Color 
Computer and the TDP System-100 
Computer. It is easier than using both of 
the “given” names throughout THE RAIN- 
BOW. 

In most cases, when a specific com- 
puter is mentioned, the application is for 
that specific computer. However, since 


the TOP System-100 and Tandy Color. 


are, for all purposes, the same computer 
in a different case, these terms are 
almost always interchangeable. 


The Rainbow Check Plus 


The small box you see accompanying 
a program listing in THE RAINBOW is a 
“check sum” system, which is designed 
to help you type in programs accurately. 

Rainbow Check PLUS counts the 
number and values of characters you 
type in. You can then compare the 
number you get to those printed in THE 
RAINBOW. On longer programs, some 
benchmark lines are given. When you 
reach the end of one of those lines with 
your typing, simply check to see if the 
numbers match. 


To use Rainbow Check PLUS, type in 
the program and CSAVE it for later use, 
then type in the command RUN and press 
ENTER. Once the program has run, type 
NEW and ENTER to remove it from the area 
where the program you're typing in will 
go. 
Now, while keying ina listing from THE 
RAINBOW, whenever you press the down- 
arrow key, your CoCo gives the check 
sum based on the length and content of 
the program in memory. This is to check 
against the numbers printed in THE 
RAINBOW. If your number is different, 
check the listing carefully to be sure you 
typed in the correct BASIC program code. 
For more details on this helpful utility, 
refer to H. Allen Curtis’ article on Page 
21 of the February 1984 RAINBOW. 

Since Rainbow Check PLUS counts 
spaces and punctuation, be sure to type 
in the listing exactly the way it's given in 
the magazine. 


10 CLS:X=256*PEEK(35)+178 
20 CLEAR 25,X-1 
30 X=2S6*PEEK (35)+178 
4@ FOR 2=X TO xXt+77 
S@ READ Y:W=Wt+Y:PRINT Z,Y3W 
6@ POKE 2,Y:NEXT 
7@ IFW=79BSTHENB@ELSEPRINT 

“DATA ERROR”: STOP 
80 EXEC X:END 
9@ DATA 182, 1, 106, 167, 140, 6@, 134 
100 DATA 126, 183, 1, 106, 190, 1, 107 
11@ DATA 175, 140, 5@, 48, 140, 4, 191 
12@ DATA 1, 107, 57, 129, 10, 38, 38 
130 DATA S2, 22, 79, 158, 25, 230, 129 
14@ DATA 39, 12, 171, 128, 171, 128 
15@ DATA 23@, 132, 38, 250, 48, 1, 32 
16@ DATA 248, 183, 2, 222, 48, 140, 14 
170 DATA 159, 166, 166, 132, 28, 254 
1682 OATA 189, 173, 198, S53, 22, 126, @ 
19@ DATA @, 135, 255, 134, 40, 55 
200 DATA 51, 52, 41, @ 


Using Machine Language 


Machine language programs are one 
of the features of THE RAINBOW. There are 
a number of ways to “get” these pro- 
grams into memory so you can operate 
them. 

The easiest way is by using an editor/ 
assembler, a program you can purchase 
from a number of sources. 

An editor/assembler allows you to 
enter mnemonics into your CoCo and 
then have the editor/assembler assem- 
ble them into specific instructions that 
are understood by the 6809 chip that 
controls your computer. 


When you use an editor/assembler, all 
you have to do, essentially, is copy the 
relevant instructions from THE RAINBOW’'S 
listing into CoCo. 

Another method of getting an assem- 
bly language listing into CoCo is called 
“hand assembly.” As the name implies, 
you do the assembly by hand. This can 
sometimes cause problems when you 
have to set up an ORIGIN statement or 
an EQUATE. In short, you have to know 
something about assembly to hand- 
assemble some programs. 

Use the following program if you wish 
to hand-assemble machine language 
listings: 


10 CLEAR200, &H3F 0: I=&H3F BO 
2@ PRINT “ADORESS: “:HEXS(I): 
3@ INPUT “BYTE” :B$ 

4@ POKE I, VAL(“&H“+B$) 

5@ I=I+1:GOTO 20 


This program assumes you have a 16K 
CoCo. If you have 32K, change the 
&H3F 0@ in Line 10 to &H7F@@ and change 
the value of I to &H7F8O. 
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(075) 32 6370 CoCoLink 
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This material is COPYRIGHT. Magazine 
owners may maintain a copy of each 
program plus two backups, but may NOT 
provide others with copies of this magazine 
in ANY form or media. 
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STOCKTAKING SPECIALS! 


While they last - send a copy 
of this ad to get this special!! 


TEAC FD55F DSDD 80 Track Drives 
with head load solonoid to reduce 
head ware. 


Normally $246.41 


| $199 = 
While they last SIS 


$439.33 


CoCo Disk Drive - includes Power Supply, 
Case, Cables, 1.4 DOS, 40 Track DSDD. 
Drive expandable to 2 drives 


Phone for further details 
All prices include Tax 
Please allow for P & P. Bankcard Welcome. 
Dealer enquires welcome. 


E L ENERGY CONTROL INTERNATIONAL PTY. LTD. 
PO Box 6502 Goodna Qld 4300 
7 Brisbane AUSTRALIA 
Phone (07) 288 2455 Telex AA43778 ENECON 
CONTROL P.O Box 12153 Wellington North NEW ZEALAND 
Phone 4-726 462 TLX NZ 30135 


Prices subject to change without notice. 


OroyanTanlelaicer-tarelats 
Specialists 


AUTO ANSWER $399.00 


INimemes\he-}= 


THE FIRST BULLETIN BOARD SYSTEM 
for Tandy’s computers 


(02) 344 9511 


SPECIAL! 


Aviek Mini Modem + Cable + CoCo 
Tex Program — the total Viatel System — 
$279.00 


We also have the largest range of Software for 
OS-9 and Flex operating systems. 


PARIS RADIO ELECTRONICS 


161 Bunnerong Rd., Kingsford, N.S.W. 2032. 
(02) 344 9111 
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The holidays are over and we are now back into the swing 
of things. For Australian Rainbow Magazine, this means a 
return to many of the features we’ve all missed over the 
holiday period. 

One change which is to be effective immediately, is the 
move of the Education Page from this magazine to 
Australian CoCo. 

We are happy to make the necessary change to your 
subscription, if you have been buying Australian Rainbow 
for the Education Page. Not that Rainbow will be totally 
devoid of the Education input, because we will continue 
to have the Education input from America in these pages. 
The change has been coming for some time, but was 
catalysed by Tandy’s successful entry into the N.S.W. 
Education contract with the T16@8. 

Australian Colo / softgold seemed to be the place for 
Australian educational inforation - especially now that we 
have to cater for the 11886 too. 


We are looking forward to a very exiting year. Tandy’s 
sales of CoCo over Christmas exceeded all but the wildest 
expectations. This means that there is a very large 
number of new users who will be seeking information. 

The Computer Hut in Bowen is geared to bring you a 
broader range of software than ever, and specialist itens 
which they don’t handle, seem to be in ready supply from 
several alternative sources around the country. 

The very latest software is of excellent quality, and 
hardly bears any resemblence to material of even a year 
ago. (This especially applies to the software our readers 
are sending - the quality of which is superb!) 

And CoCo watchers this year will probably see a new Colo 
on Tandy’s shelves. 

This CoCo has been very elusive, - Tandy watchers have 
been given several long blind alleys in which to wander 
about in! . 

The trouble is, that there have been 3 prototypes 
floating about. 

Alas, it looks like those who wanted a 68880 machine 
might have to wait - but I’m not going to say more - | was 
wrong in my December prediction - I want to check my facts 
before | make another incorrect statement! 
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Ok, you oldies can now turn the page - I want to talk 
to all our new readers. 
This magazine has a history which goes back 4 years, when 


a guy by the name of Greg Wilson started reprinting the 


. fmerican Rainbow here in a style which was unique. It won 


him admiration and friends around Australia and around the 
world. 

He showed us a way to use our computers to learn - 
about computing - but often also, about ourselves. 

The method is simple really - it’s called sharing. 

As you learn, you share what you have learnt. 

1 Know there are lots of people around who Know more than 
you, but there are going to be increasingly more people 
who know less than you, if you Keep on with this thing. 

And we have found that in computing, the person who is 
just ahead of someone else, is often the best teacher. The 
person who Knows everything Knows too much, and finds it 
hard to talk on a beginner’s level. 

How do we share? There are four ways. 

The first and most important is to become a member of the 
local user group. 1 Know you probably don’t want to be a 
part of another club, but you do need contacts - people 
you can call when you get stuck - the more the merrier. 

The second way to share is by phoning and writing to us. 
We don’t take articles or programs over the phone, but 
there’s a lot of conceptionalizing that does go on! All 
the Australian programs and articles in Australian Colo 
and Australian Rainbow are supplied by people who what to 
share what they have learnt. 

The third way to share is to buy a modem and use your 
computer to talk to one of the many BBS springing up all 
over Australia. A list of phone numbers can be found in 
January’s Australian CoCo which was a reference issue - it 
had a lot of useful tid bits and lists in it. 

The fourth way to share is to develop your relationship 
with Tandy. Get to know your local manager personally and 
tell him/her not only about your trials and tribulations, 
but also about your successes. When you get along the road 
awhile, and you think the time appropriate, talk to 
Tandy’s Head Office people too, folk like Ken Allen, the 
computer buyer and Ben Shariff, troubleshooter - these 
people value your comments. 

] quess it all comes back to one well Known cliche - “you 
only get back what you are prepared to put in.” 

In other words, in computing - if you want to learn, get 
involved - the more involved you are, the more you'll 
learn, 

] should also add, the more you learn, 
regret the time you spend learning! 


learn 


the less you’ll 


Go waa 
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Software Review 


Survive The Dangerous Drive 
In Color Car Action 


Several months ago I bought an action program, Bump 
and Jump, for my Intellivision. It is a fast, fun and addicting 
game. Novasoft has created an excellent rendition of the 
Bump and Jump game, Color Car Action, for the CoCo. 
Color Car Action is easy to play. The object is to accumulate 
points by driving on a very dangerous road. Points are 
gained by staying alive and bumping cars off the road. Each 
type of car has a point value ranging from 200 to 500 points. 

The road 1s divided into patterns of 20 to 60 screens. If 
you manage to complete a pattern without smashing any 
cars, 50,000 bonus points are awarded. The road is 
composed of over 500 screens. After completing 10 screens, 
there is a very short pause because the program generates 
10 new screens. I did not find this pause annoying; it helped 
me keep track of my progress. The terrain graphics cover 
the four seasons, spring, summer, fall and winter. 

Your car has the ability to jump cars and terrain. In order 
to initiate a jump the car must have a speed greater than 
60 mph. The maximum speed of the car is 100 mph. If you 
are traveling faster than 60 mph and hit the joystick 
firebutton your car flies into the air. The distance the car 
flies is determined by your speed at the time the jump is 
initiated. Car speed is indicated at the top of the screen. 
When the car is moving fast enough to jump, a special 
message, JUMP OK, appears next to the speed meter. The 
car cannot be destroyed in the air, but watch out when you 
land. A diamond-shaped caution sign appears when you 
approach a terrain jump. 

Each game is started with three cars and you are awarded 
an extra car for each 30,000 points accumulated. I’m not 
a very good wrist jockey, consequently, I did not reach 
30,000 points and receive a bonus car. The five highest scores 
are displayed on the title screen. Names are entered using 
the joystick, and up to five letters are allowed. 

Color Car Action comes on disk and is accompanied by 
two pages of instructions. The instructions are clearly 
written. | was operating the game in short order. Overall, 
the game has good graphics and color, and the sound effects 
are good. Just watch out for the dump trucks! 


— Gabriel Weaver 
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SERIAL TO PARALLEL INTERFACE 
9600 BAUD POWER FROM FRINTER 
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RICHARD ROGERS 

48 KNOCKLOFTY TERRACE 
WEST HOBART 7000 
PHONE (002) 341155 


BUILD YOUR OWN’ Uses NE555, 741502, 74LS93 
74LS132, 74LS164 PCR AND INFO #10 
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Action And Adventure 
With Ghana Bwana 


Do you enjoy action games with a bit of an adventurous 
twist? If yes, give Ghana Bwana atry. You will join Professor 
Chance, better known as “Ghana Bwana,” on his hazardous 
quest for the Great Secret of the legendary Erebus Island. 
If your luck holds out, you can make it to the treasure site. 

This game is Steve Bjork’s (Zaxxon) latest creation. It 
requires a 64K CoCo with Color BASIC and one disk drive. 
A Speech-Sound Pak can be added to make the game a little 
more interesting. Either the keyboard or joystick can be 
used for game play. I found the latter to be easier to use. 

Ghana Bwana takes up one full disk. However, it is not 
copy protected and can be backed up with the BACKUP 
command. If you do a DIR, all you see is a loader program 
called ‘*’. Simply RUN”*” to start. Your screen should turn 
blue, for the most part, after the graphics screen appears. 
If it’s not, press Reset until it is. Pressing the ENTER key 
at this point takes you to an options screen. Here the 
number of players, controller type and difficulty levels can 
be selected. When all set, just hit the joystick button or space 
bar to play. 

There are a total of nine screens. I only got to the fourth. 
On the first, Professor Chance is in a small boat (outrigger). 
It is up to you to steer the boat and pick up pieces of a map, 
which are represented as small square dots. For each piece 
of paper collected, a small map is drawn in the upper left 
corner. When enough pieces are found, the map 1s complete 
and you go onto the next level. To my knowledge, the object 
is to pick up the map, score bonus points by collecting things 
such as keys and bow and arrows, and get to the treasure 
on the final screen. Players must also avoid the obstacles, 
such as enemies who fire at you, potholes, rolling rocks, 
sharks and waterfalls. Each screen gets progressively more 
difficult. To gain some hints and tips, it’s a good idea to 
read the small manual, which is written as a cartoon. 

Ghana Bwana has an appealing look, but game play can 
be tedious. All the menus are formatted nicely, and there’s 
a scoreboard hall of fame that’s updated and saved to disk 
when the game ts over. I was content playing for about half 
an hour, but began to get disgusted when I kept having to 
start over. If the time runs out or you get killed at a certain 
screen, you must start over on that screen and collect the 
entire map again. 

If you have a Y-cable or Multi-Pak and Radio Shack’s 
Speech-Sound Pak, you can add voice and a few more 
sounds to the game. However, the speech is hard to 
understand. | get better quality speech with my Voice-Pak 
and a text-to-speech program. There is not much added 
sound when using the Pak, but what’s there does make it 
more interesting and sounds neat. (It may be interesting to 
know that this ts the first arcade game Radio Shack is selling 
that uses the Speech-Sound Pak.) 

Ghana Bwana is a nice game, even though it can make 
one feel frustrated after an hour or so. But don't fret, if 
you're a good game player you can probably get farther and 
go faster than I did. Try it out at Radio Shack; it’s worth 


the look. — Darren Nye 
PAGE 5 





EDUCATION 


A discovery process of color and shape 


Pattern Blocks: 
Reality Play 


By Richard Ramella 


inker Toys, Legos, Lincoln Logs, 

; Construx, Erector Sets, Capsela 

and ordinary blocks ... these 

are some of the building toys available 
for children. 

Except for sleep, there may be no 
more peaceful time in family life than 
when a child is quietly playing with a toy 
comprised of modular units. Some 
important learning goes on during these 
imagination-fed activities. The real 
world, with many of its physical rules 
intact, is emulated in miniature. The 
relationships of shapes are made clear 
in pragmatic ways. Fractions, form, 
planning, art and engineering become 
tangible for the child. Best of all, the kid 
is just having fun! 

Pattern Blocks is a 16K Extended 
Color BASIC shape game even young 
children can play. Older youngsters and 
adults may enjoy using it for more 
complex art. The game also has possi- 
bilities for students learning geometric 
shapes and fractions. 

At the start, 10 shapes labeled ‘A’ 
through ‘J’ are printed at the right of the 
screen. These are made of rectangles 
and triangles, each drawn within a 
square. At the left of the screen, a block 
cursor flickers. Using the arrow keys 
moves this cursor among 64 positions, 
eight across and eight down. Pressing a 
letter from ‘A’ to ‘J’ sets that shape in 
place. It is set without its square boun- 
dary. Moving around the grid, the 
player can create complex patterns and 
Outlines by using the 10 available 
shapes. 

The shapes are all orange at the start 
of play. To change their colors, press ‘1’ 
for blue, ‘2’ for green and ‘3’ for orange. 
Pressing the ‘A’ key fills an entire block 
in the current color, while the ‘B’ key 
blanks the position to white. 


PAGE 64 


Keys ‘C’ through ‘J’ set their shapes 
into place by a rule determined with 
GET/’PUT graphics. By using the OR 
alternative, these shapes are set over 
white areas as they exist, but their blank 
parts don’t interfere with already set 
shapes. To test this, run the program 
and press the ‘E’ key to make an orange 
rectangle in the top of the square. Now 
press the ‘1’ key to change the color set 
to green and press the ‘F’ key to set the 
bottom of the square in green. Move the 
cursor off the block to see the effect. 
Other mirror shapes may be combined 
in this way, however, setting one color 
over another can produce unpredictable 
results unless some study is made of 
opposites and complementaries. 

In another experiment, go to a blank 
area and press ‘C’, then ‘F’. Appropriate 
combinations of ‘C’ or ‘D’ with ‘E’ or °F’ 
result in four different arrangements of 
three-on, one-off. 

To still the flashing cursor momen- 
tarily, press ENTER. Press the space bar 
to restore the cursor. 

The program uses POKE 65495,@ to 
speed up the graphics. If your machine 
won’t work with this POKE, delete Line 
130. In playing the game, always press 
keyboard number ‘0’ (zero) to end a 
program run. This uses a POKE to bring 
the system back to normal speed. If you 
incorrectly end the program by pressing 
the BREAK key, you can’t load and save 
cassette material or line print until you 
type POKE 65494 ,@ and ENTER, or turn 
the computer off and on again. 


In a classroom setting, a child can 
work with the concepts of fractions and 
geometry using Pattern Blocks. A 
teacher may challenge the child to 
create a house, a whirligig, a parallelo- 
gram, a diamond, etc. For another use 
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of the program, delete Line 140, GOTO 
180. With this change, the program 
begins with the prompt: ACROSS 1-8, 


DOWN 1-8? Answer by typing whole 
numbers separated by a comma and in 
the range of | to 8. The result is a box 
drawn on the play area. The challenge 
may be, for example, to divide a three 
by three square box into mirror shapes 
of different colors, or equal areas in 
different shapes, or three equal shapes 
of different colors. The complexity of 
the problem posed depends on the 
child’s ability. 

There are various possibilities for this 
game as it is meant to be a discovery 
process. I’m confident youngsters will 
discover how to work Pattern Blocks in 
many different ways. As a toy, it in- 
volves the same kind of thinking as any 
other building toy. In my observations, 
children have created wildly original 
combinations of color and shape, intui- 
tively learning and applying real world 
rules. The results are as different as the 
children who create them: an 8-year-old 
boy’s robots and space ships, a 12-year- 
old girl’s pristine geometric patterns, 
and the joyous chaos of a 3-year-old. 
Like any building toy, Pattern Blocks’ 
worth is gauged by its imaginative uses. 
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The listing: PTRNBLKS 


199 REM * PATTERN BLOCKS * TRS-8 
EXTENDED COLOR BASIC 16K 

119 REM * BY RICHARD RAMELLA 

129 CLS: PMODE 3,1: PCLS 1: COLO 
R 3,1: SCREEN 1,1 

139 POKE 65495, 

149 GOTO 189 

159 INPUT "ACROSS 1-8, DOWN 1-8" 
;A,D: A=INT(A): D=INT(D) 

169 IF A<l OR A>8 OR D<1l OR D>8 

THEN CLS: GOTO 159 

179 SCREEN 1,1: LINE(9,$)-(A*24, 
D*24) , PSET,B 

189 DIM A(2,6),B(2,6) ,C(2,6) ,D(2 
,6),E(2,6),F(2,6),G(2,6),H(2,6), 
I(2,6) ,J3 (2,6) ,K(2,6) 

199 US=CHRS$ (94): DS=CHR$(19): LS 
=CHR$ (8): RS=CHRS (9) 

209 V=4: GOSUB 529 

219 N=9: FOR Y=1 TO 153 STEP 38 

229 FOR X=299 TO 239 STEP 39: N= 
N+1 

239 DRAW "BM"+STRS$ (X-1) +", "+STRS 
(Y-1) +" 2C"+STRS (V) +"R25D25L25U25 
0 


249 K=X+23: L=Y+23 
259 IF N=1 THEN PAINT (X+2,Y+2) ,V 
,V: GET(X,Y)-(K,L) ,A,G 

269 IF N=2 THEN GET(X,Y)-(K,L) ,B 
,G | 
276 IF N=3 OR N=4 THEN LINE(X+12 
,Y¥)-(X+12,Y+24) ,PSET 

289 IF N=3 THEN PAINT (X+29,Y+29) 
,V,Vs GET(X,Y)-(K,L) ,C,G 

299 IF N=4 THEN PAINT (X+2,Y+2),V 
,V: GET(X,Y)-(K,L) ,D,G 

309 IF N=5 OR N=6 THEN LINE(X, Y+ 
12) -(X+24,¥+12) , PSET 

319 IF N=5 THEN PAINT(X+2,Y+2) ,V 
,V: GET(X,Y¥)-(K,L) ,E,G 

329 IF N=6 THEN PAINT(X+2,Y+22), 
V,V: GET(X,Y)<-(K,L) ,F,G 

330 IF N=7 OR N=8 THEN LINE(X, Y) 
-(X+24,Y+24) , PSET 

349 IF N=7 THEN PAINT (X+22,Y+2), 
V,V: GET(X,Y)-(K,L) ,G,G 

359 IF N=8 THEN PAINT(X+2,Y+22), 
V,V: GET(X,Y)-(K,L) ,H,G 
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369 IF N=9 OR N=19 THEN LINE(X,Y 
+24) -(X+24,Y) ,PSET 

379 IF N=9 THEN PAINT (X+22,Y+22) 
,V,V: GET(X,Y)-(K,L),1I,G 

389 IF N=19 THEN PAINT (X+2,Y+2), 
V,V: GET(X,Y)-(K,L),J,G 

399 NEXT X,Y | 
499 QS=INKEY$: IF Q$=CHR$(13) TH 


EN GOSUB 729 . 


419 FOR T=1 TO 2: GET(P,Q)-(P+23 
,Q423) ,K,G 


429 PUT(P,Q)-(P+23,Q+23) ,K, PRESE 
T: NEXT T | 

439 IF QS="" THEN 499 ELSE IF Q$ 
="9" THEN POKE 65494,9: END 

449 GG=INSTR("ABCDEFGHIJ",Q$) 
459 K=P+23: L=Q+23: IF GG>g# THEN 
ON GG GOSUB 629,639,649,659, 669 
,679,688,699,708,718: GOTO 499 — 
469 V=INSTR("1234",0$): IF V>p# T 


HEN V=V+1: GOTO 219 


479 IF QS$=US AND Q>9 THEN Q=Q-24 
489 IF QS=D$ AND Q<168 THEN Q=Q+ 


499 IF Q$=L$ AND P>g THEN P=P-24 
569 IF QS=R$ AND P<168 THEN P=P+ 


519 GOTO 49f 
529 DRAW" BM28 , 35 ; C2QU6E3F3D3L3R3° 


539 DRAW"BM239,36;U9R4F1D3G1L3R3 
F1D2G1L4" | 

549 DRAW"BM216,67;H2L3G2D4F2R3E2 
ae 


559 DRAW"BM239,72;U7R3F2D4G2L3" 
569 DRAW"BM298 ,111;R7L7U4R4L4U4R 
7" 

579 DRAW"BM238,111;U4R4L4U4R7" 
589 DRAW"BM216, 143 ;H2L3G2D4F2R3E 
3L4" 

599 DRAW"BM238,149;U8D4R7U4D8" 
699 DRAW"BM211,179;R3L2D8L2R4" 
619 DRAW"BM238,185;D1F2R3E2U6L2R 
4% 

629 PUT(P,Q)-(K,L),A,PSET: RETUR 


639 PUT(P,Q)-(K,L),B,PSET: RETUR 


646 PUT(P,Q)-(K,L),C,OR: RETURN 
659 PUT(P,Q)-(K,L) ,D,OR: RETURN 
669 PUT(P,Q)-(K,L),E,OR: RETURN 
676 PUT(P,Q)-(K,L),F,OR: RETURN 
689 PUT(P,Q)-(K,L),G,OR: RETURN 
699 PUT(P,Q)-(K,L),H,OR: RETURN 
769 PUT(P,Q)-(K,L),I,OR: RETURN 
719 PUT(P,Q)-(K,L) ,J,OR: RETURN 
729 EXEC 44539: RETURN 

739 REM * END OF LISTING ~ 
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Preparing For The 
Right Career Choice 


By Steve Blyn 


C areer education is a topic that is 
rapidly gaining in popularity in 
many schools. The choice of 
one’s future occupation is becoming 
increasingly complex. ; 

As new technology replaces older 
jobs, it also creates new ones. Today we 
see more and more job titles than we 
have ever seen before. Advances in 
robotics are a fine example of this 
phenomena. Robots are indeed replac- 
ing many workers. The automobile 
industry is especially affected by robots. 
The new jobs of robot technician 
and repairperson as well as robot 
“watchers” are now available for the 
displaced workers. 

It is becoming more difficult to keep 
track of and inform students of the 
career choices facing them. New York 
City is the largest school system in the 
country. A major move to increase 
career awareness has been instituted 
this year. It is called the Regents Action 
Plan. It calls for a new emphasis on 
teaching career awareness, shops with 
modern trade skills, computer literacy 
and foreign languages. 

The hope of this plan is to better 
prepare the one-million students in New 
York City for future employment. Their 
Board of Education is very serious 
about this plan. Many new foreign 
language teachers were recruited world- 
wide during the summer. More than 10 
million dollars was spent on computer 
hardware and software last year by the 
New York City Board of Education, and 
a similar amount will be spent this year. 
Much of this equipment is used to give 
students some background and training 
for the jobs that will be available to 
them after high school graduation. 

To further help the students in learn- 
ing about their own interests, a career 
awareness survey test was given. This 
test is called the Harrington-O’Shea 
Career-Decision Making System. It is 
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an inexpensive and easily administered 
test. The survey is in two parts. In part 
one, a large chart helps explain job 
definitions to the students. Several 
hundred typical jobs are listed and 
classified. Part two consists of a 120- 
question survey that attempts to focus 
in on student interests. 

A self-scoring method is provided to 
show the student which areas to con- 
sider. Careers are broken up into six 
main categories: crafts, scientific, the 
arts, social, business and clerical jobs. 
A further breakdown of jobs within the 
student’s primary interest area is then 
determined by the test. Specific career 
choices can, therefore, be suggested to 
each student. 

This test is not only useful in making 
future career choices; it is primarily 
used by New York City to help the 
students initially make a wise choice on 
a high school. There are many special- 
ized high schools in the city and also 
special programs available in the regu- 
lar high schools. This test helps students 
make an intelligent decision about 
which high school programs to apply 
for. 

This month’s program deals with 
careers on a beginner’s level. The pro- 
gram asks students to match jobs with 
their descriptions. As written, the mate- 
rial is on a level for younger children. 

Youngsters are usually taught about 
careers through the study of community 
helpers. They often go on field trips to 
visit the local firehouse, police station, 
bank and other neighborhood places. 
Parents are sometimes invited to speak 
to the class to explain other types of 
jobs. As children grow older, their fund 
of career knowledge should expand 
through other contacts. 

We hope you will change our data to 
suit your needs. For young children, it 
is a good idea to make several versions 
of the program. The extra versions can 


Australian RAINBOW 





include different sets of community 
workers. There is, of course, no need to 
retype the program to make different 
versions. Run the original, list it, re- 
place the data and save your new ver- 
sion. Older children can benefit by sets 
of data that describe a wider, more 
technical range of career choices. 

The data comes in sets of 12 items. 
This amount was used because 12 job 
titles format well on the CoCo’s screen. 
We always want our programs to format 
well so they are attractive and help hold 
the interest of the students. 

Line 60 reads the 12 job descriptions 
(A$) and the 12 job titles (B$). Line 100 
selects a random job description to be 
matched up by the user with the correct 
job title. Lines 130-210 print out these 
job titles. Line 220 gets the student’s 
answer. Line 250 checks to see if the 
answer is a valid choice. If not, the 
answer is erased and another try is 
given. Line 240 is the escape. If ‘E’ is 
pressed as a response to any question, 
the program ends. This is a nicer way 
of exiting the program than merely 
pressing the BREAK key. Lines 260-310 
underline the student’s answer. This 
serves to further reinforce the student’s 
control of and interest in the program: 
He sees which number he pressed as well 
as his answer underlined. Lines 320-330 
tell the student whether he is right or 
wrong. If incorrect, the same question 
is repeated until answered correctly. 

We felt there was no reason for a 
formal scoring in this program. It 
should not be looked upon as a test. It 
should be used until mastered. We hope 
you use and modify this program to 
your child’s needs. 





Listing 
on Page 18. 
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EDUCATION O : ERVIEW } 


The Learning Process: 


The Importance Of 
‘How To Think’ 


By Michael Plog, Ph.D. 


or many years, educators have 
Pics the problem of process 

versus product for student learn- 
ing. I assume Plato had a similar prob- 
lem when he started his school in an- 
cient Greece. 

The product of student learning is 
easy to see and easy to measure. A 
student either knows or does not know, 
for example, the date the Normans 
invaded England, the right answer to a 
mathematics problem, the location of a 
river, etc. These things are the product 
of learning. Most achievement tests — 
compiled by a teacher or commercially 
made — deal with the products of 
learning. Generally, products of learn- 
ing are facts. 

The process a student uses to get the 
correct answer, however, is an entirely 
different matter. Here, the question is 
not so much a single correct response, 
but what steps the student takes to get 
the answer. Do you remember math 
teachers saying they were less worried 
about the right answer than in how you 
got the answer? Those teachers were 
more concerned with the processes the 
student had to go through than simply 
knowing the right answer. In many 
ways, the process of learning is more 
important than the product. 

We know it is impossible for students 
to learn everything that is important in 
any single field. There is too much 
factual knowledge to be retained by any 
one person, even experts in specialized 
areas. If students have the correct 
process of inquiry, they will be able to 
find knowledge when they need it, and 
apply it to their own life situations and 
problems. This skill, the ability to find 
the correct answer, is more important 
than any single correct answer we can 
ever teach. 

As far as I know, the microcomputer 
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is not used very much for process 
learning in schools. This is a shame, 
because these skills are much more 
important to people than simple factual 
knowledge. If you know how to find 
and interpret factual knowledge, you 
have a much better chance for success 
in any venture. Most microcomputer 
work in schools is still drill and practice 
— learning factual knowledge from a 
screen instead of a workbook. Very little 
work with the microcomputer is trying 
to get students to put together a body 
of facts to come to a new understanding 
of the material being covered. 

It is somewhat ironic that process 
learning is more common in non- 
educational uses of the microcomputer. 
Adventure games and Simulations are 
usually marketed as entertainment 
items. In an Adventure game, the play- 
ers must learn the rules as the game is 
played. This is a type of process learn- 
ing. Adventure games involve a process 
the player needs to learn in order to 
solve the game correctly. Unfortunately, 
few of the processes used in Adventure 
games are valuable in normal school 
settings. 

Simulations, on the other hand, are 
ideally suited to process learning. In a 
Simulation, players are given the op- 
portunity to try different situations, see 
what happens, and form conclusions. 
When you stop and think about that, we 
have the same steps as the “scientific 
method,” a process of thinking used in 
all fields of learning, not just the tradi- 
tional science fields. 

The scientific method starts with 
observations, which lead to a set of 
questions about the topic. The ques- 
tions lead to a set of hypotheses. A 
hypothesis is not simply a question, but 
a question stated in such a way that it 
can be tested — found to be true or 
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false. The next step is to test the hy- 
potheses, to determine which are accu- 
rate and which are false. The final step 
is to draw conclusions that help explain 
the world around us. 


The scientific method is used by 
scholars in all fields of learning. Soci- 
ologists, for example, consider them- 
selves scientists of human group behav- 
lor. They follow the same steps of 
inquiry as the chemists, but with differ- 
ent considerations. The content of 
sociology is different from the content 
of chemistry; the process of inquiry and 
learning is the same for both fields. 

A microcomputer Simulation can 
provide a great help to this process. 
Observations no longer have to be 
based on students actually looking at 
something. The computer can tell you 
what will happen in different situations. 
This can lead to faster development of 
hypotheses, and some Simulations are 
set up to actually test hypotheses. Thus, 
conclusions can be drawn faster. 

I recently saw an interesting Simula- 
tion disguised as a science test. The 
student is presented with a problem 
about the shape of red blood cells in salt 
water solutions. As the amount of salt 
in the solution changes, the shape of the 
blood cell changes. The student is given 
the opportunity to go through a series 
of experiments, then asked to select the 
best conclusion from the information 
provided. Without ever using the word 
“hypothesis,” students are expected to 
conduct tests on a series of hypotheses 
and draw conclusions about shapes of 
blood cells in solutions containing 
different amounts of salt. 

In this particular example, the micro- 
computer keeps track of the choices 
made by the student — at each step of 
the process. The correct answer is far 








less important than the steps taken by 
the student to get the result. This test is 
designed to see how students go through 
the process of science. Chances are that 
students in most schools will not have 
conducted this experiment, even if the 
school has the equipment required. 
Thus, the test developers are assuming 
the problem is unknown to the students 
and the process will have to be followed, 
instead of the students relying on past 
knowledge (product). 

This Simulation was designed as a 
test of student ability to follow the 
process of science. Yet, the same pro- 
gram could be used as instruction for 
students instead of a test. Students in a 
science class could use this same pro- 
gram to conduct experiments that are 
generally not done in most science 
classes today. 

It is my opinion that we need more 
educational Simulations for instruction 
in classrooms. Science Simulations are 


easy to construct because we have a 
large amount of information on exper- 
iments conducted by professionals. 
That knowledge can be reshaped into 
Simulation exercises for students. But 
science is not the only area that can 
benefit. Social studies Simulations, 
based on actual past events, can also be 
used to give the student a sense of the 
processes involved. 

From my limited knowledge, the 
main thing that separates entertainment 
Simulations from educational Simula- 
tions 1s the content of the program. 
Instead of dealing with a mystery story 
or a futuristic army, educational Sim- 
ulations deal with some topic relevant 
to aclassroom. Also, many educational 
Simulations have been written by peo- 
ple who are knowledgeable about pro- 
gramming, but have limited classroom 
experience. 

Do any of you have Simulations you 
use in classrooms? Have you written 


Simulations that are appropriate for 
student use? Your Color Computer 1s 
ideally suited to Simulations. If you use 
a disk drive, you can have a long Sim- 
ulation lesson. Even with a tape re- 
corder, the Color Computer can divide 
the Simulation into several parts, each 
following logically from the other. You 
are not limited to 64K with Simulations. 

Students today need to learn the 
processes of learning, especially so to 
counteract the misguided emphasis on 
factual learning promoted by some 
people who do not understand deduc- 
tive thought. In many ways, it is the 
most basic education we can provide 
students. (And I do hope we are all 
students, continuing to learn no matter 
what our age.) We need to encourage 
such use of the microcomputer, and 
especially encourage the development 
of software for this- purpose: 


289 IF S>3 AND S<7 THEN R=R+32 


The listing: COMMHELP 
298 IF S>6 THEN R=R+63 


309 IF S>9 THEN R=R+31 

310 PRINT@225+R,KS$; 

329 IF S=X THEN PRINT@459, "CORRE 

CT !";:PLAY"LISABCABCABC":FOR T= 
1 TO 1599:NEXT T:RUN 19 

339 IF S<>X THEN PRINT@448,"PLEA 

SE PRESS ENTER TO TRY AGAIN."; 
349 ENS=INKEYS 

359 IF ENS=CHR$(13) THEN 119 

360 GOTO 349 


19 REM"COMMUNITY HELPERS" 

26 REM" STEVE BLYN,COMPUTER ISLA 
ND, NY : 

3 XX=RND(-TIMER) 

49 DIM A$(12),B$(12) 

59 FOR T=1 TO 12 

69 READ AS$(T) ,B$(T):NEXT T 

76 K$=STRINGS (7,195) 

89 GS=STRINGS (32,24) 

99 H$=STRINGS (32,195) 


198 X=RND(12) 379 DATA I FLY AN AIRPLANE.,PILO 
116 CLS5 T 

129 PRINT@ 9,G$; 389 DATA I BRING THE FOOD AT RES 
139 PRINT@32,A$(X) TAURANTS. , WAITER 

149 PRINT@64,HS; 399 DATA I CUT AND STYLE PEOPLES 
158 PRINT@128, STRINGS (32,239); ' HAIR. , BARBER 

169 PRINT@192,"1. PILOT 2. WAIT 499 DATA I MAKE THE FOOD AT REST 
ER 3. BARBER" AURANTS. , COOK 

176 PRINT@256,"4. COOK 5.SALES 419 DATA I SELL THINGS AT STORES 
MAN 6. NURSE" . , SALESMAN 

188 PRINT@329,"7.FIREMAN 8.TEACH 42 DATA I HELP DOCTORS MAKE PEO 
ER 9.MECHANIC" PLE WELL. , NURSE | 

199 PRINT@384,"19.JANITOR11.TYPI 439 DATA I PUT TO PUT OUT FIRES. 
ST 12. POLICE" , FIREMAN 


299 PRINT@e96," " 
216 PRINT@96," 
JOB ? "3 

229 LINE INPUT NS$ 
239 SOUND 299,2 
249 IF NS="E" THEN CLS:END 

259 IF VAL(N$)>@ AND VAL(N$) <13 


448 DATA I HELP STUDENTS TO LEAR 
N THINGS. , TEACHER 

459 DATA I FIX CARS AND TRUCKS., 
MECHANIC 

46 DATA I CLEAN AND FIX-UP BIG 

HOUSES. , JANITOR 

47 DATA I WORK IN AN OFFICE.,SE 


WHICH IS MY 


THEN 2698 ELSE 299 CRETARY | 
269 S=VAL(NS). 48 DATA I PROTECT PEOPLE AND PL 
279 R=S*11-11 ACES. , POLICEMAN ~ 
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An Educational Adventure 


For The CoCo And MC-10 


By Fred B. Scerbo 


The Wish 

Many of you have suggested I create 
an Adventure game. I have to be honest, 
though — I really don’t like Adventure 
games! There have been only one or two 
that I have played to completion be- 
cause I simply do not have the patience 
an Adventure game requires. (For that 
matter, I have never finished a game of 
““Monopoly” and only rarely have 
played a chess game to completion, 
without a computer that is!) Still, I must 
admit I have been very impressed with 
some of the Adventure games. How- 
ever, even though these may be fun to 
play, I have always hoped this time 
could be spent in a more educational 
way. Don’t get me wrong. I do believe 
an Adventure game can have some real 
educational benefits in and of itself. The 
verbal and deductive skills required to 
play one can indeed be worth reinforc- 
ing. 

Since much of my mail has encour- 
aged me to create more generic educa- 
tional software, the combination of 
these two fields can help me grant two 
wishes at once. Add to that the real 
desire from some of you to see more 
MC-10 versatility, and we have three 
wishes in one: an educational Adven- 
ture that works with just 16K Color 
BASIC or a 20K MC-10. 

The Inspiration 

Years ago, when I first started writing 
programs for the Color Computer, I 
was in the same position of many new 
CoCo owners. I wanted to get as much 
classroom use out of the old silver 
chassis as time and creativity would 
permit. Since almost no one was creat- 
ing anything for our CoCo at the time, 
I purchased many books looking for 
programs I could translate to Color 
BASIC. 

One such book that I found was 
Mostly BASIC: Applications for your 
TRS-80, by Howard Berenbon (How- 
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ard W. Sams & Co., Inc., Indiana, 
1980). Mr. Berenbon’s book contained 
a number of programs designed for the 
Model III. I was very interested in a 
listing called The Dungeon of Htam, 
which was listed as an educational 
Adventure game. It took many hours to 
translate the program’s Level II BASIC 
to fit the screen limitations of the 32 by 
16 CoCo screen. Finally, I got a work- 
ing version debugged enough to allow 
my students a chance to try something 
different on the computer. 

What was interesting about Dungeon 
of Htam (which is math spelled back- 
wards) was its use of the typical Adven- 
ture commands such as ‘N’, ‘S’, ‘E’ and 
“W’, its “Math Monsters” named DDA, 
BUS, LUM and VID (add, sub, mul and 
div) and a map that helped you find 
your way around the dungeon — if you 
could find it. Htam had two levels, and 
certain rooms had trap doors that could 
be, in the words of the game, costly. 

My students liked Htam, but it was 
not really that flexible for my purposes. 
There were no difficulty levels to con- 
trol the types of problems created and, 
unless you found the map, the game was 
difficult to get around in using ‘N’, ‘S’, 
‘E’ and ‘W’ as directions. 

In recent years, Htam has not gotten 
much use unless a student would ask, 
“Do you still have that dungeon game?” 
Therefore, I finally decided the time was 
right to create my own math Adventure 
game using a format somewhat like that 
of Htam. This time, however, I could 
start from scratch using some of the 
programming techniques I have devel- 
oped in recent years. I would create my 
own Adventure world and have control 
over what kind of math problems are 
presented so that even my lowest level 
math students could enjoy it. Keep in 
mind that Math Miner is not a rewrite 
of Htam. It is atotally new game created 
solely for the Color Computer and MC- 
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10, which Htam never was. Still, my 
thanks go out. to Mr. Berenbon, whose 
excellent book provided the inspiration 
for my early programming efforts. 

The Program 

One thing you will notice about the 
listing for Math Miner is that the 
program lines are shorter than usual for 
a “Wishing Well” program. This is for 
two reasons. First, MC-10 only allows 
a line 128 characters long as oppposed 
to CoCo’s 255. Secondly, since MC-10 
doesn’t have a built-in EDIT command, 
I wanted to keep the lines as short as 
possible so any retyping of errors could 
be kept to a minimum. 

Another difference you will notice is 
the absence of the ELSE command, 
which is missing from MC-10’s IFZ 
THEN command. The loss of ELSE 
makes programming a little more diffi- 
cult and memory consuming, but con- 
sidering that even an Apple Ie doesn’t 
have ELSE, it is a small price to pay to 
make the program work on both. 

My first prototype of Math Miner 
used screen POKEs for the map, but I 
decided to go back to using PRINT® 
commands. Since the screen memory 
for MC-10 is different than CoCo’s, I 
usually had to use a screen offset value 
(MC in the listing) for every POKE used. 
My first translation kept locking up 
because of a misplaced POKE value. I 
soon discovered the source of the bug 
and fixed it, but I again realized how 
easy it might be for someone typing in 
the program to lose it all to a typo in 
the POKEs. Therefore, I did a little 
rewriting and used the offset on a PEEK 
command instead, which is not pro- 
gram destructive as a POKE can be. 
(POKE in the wrong place and BASIC can 
be changed in ways you may not like!) 
Either way, the program works just fine, 
but you will still have to make one line 
change to translate to MC-10. More on 
that later. 
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Running the Program 

If you are using a 16K Extended 
machine, PCLEAR1 before loading the 
game. This frees up the extra memory 
needed. 

Math Miner takes place in a caver- 
nous mine deep underground. You start 
out at the lowest level with 500 units of 
fuel in your backpack. This fuel is used 
later when you make it to the surface/ 
roof area where a helicopter awaits to 
aid in your escape. You must accumu- 
late enough fuel to fly the copter away. 

Instead of using ‘N’, ‘S’, ‘E’ and ‘W’ 

commands, your movements can be 
made by using the arrow keys. The map 
always appears in front of you. (There 
is even a routine built in that prevents 
the map from scrolling off the screen.) 
Each of the five levels is an 8 by 8 grid. 
Your position is indicated by a set of 
brackets on the screen. Move the arrow 
keys and the brackets will move on the 
map. 
- There are two symbols on the map. 
“TR” stands for treasure room, where 
you can answer a math question and 
earn fuel points. “PW” stands for 
passageway and is your way of moving 
from one level to another. You can only 
use a passageway if a certain number of 
questions have been correctly answered 
(anywhere from five to 15). 

A spirit creature also roams the 
empty corridors. If he approaches you, 
you must answer his question. How- 
ever, if you have the Shield, you can 
ignore him by refusing to lower it. 
Times may occur when you may want 
to lower the shield just to accumulate 
correct answers. This is valuable if you 
end up on a level with too few TRs. The 
shield is found by correctly answering 
certain problems. 

Upon entering a passageway, it may 
transport you to the next highest level. 
On other occasions, it may not be in 
working order and tell you to return 
later. Still other times, you might fall 
through a trap door to a lower level. If 
you have the Magic Wand, you are 
protected from falling through, but may 
find the wand vanishes from your hand. 
To keep track of inventory, press ‘I’ for 
an accounting of what you are carrying. 

Once the fifth level has been reached, 
you must also locate the key to the 
helicopter. If all these elements are in 
place and there is enough fuel, you can 
exit the level and escape to the roof. You 
are then presented with your game 
statistics. 

If it is necessary to end a game early, 
pressing the ‘@’ button asks if you wish 


to quit. “Y’ ends the game while ‘N’ 
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continues it. This prevents accidentally 
ending a game by hitting the wrong key. 

One of the routines incorporated into 
this program is my own version of the 
INPUT command using INKEYS. The 
screen reacts exactly as if using INPUT 
while ignoring the letters on the key- 
board, which should not be included in 
a mathematical answer. The backspace 
arrow erases errors and you must still 
press ENTER to record your answer. The 
main advantage of the routine is that it 
effectively neutralizes the CLEAR key. 
My students have used educational 
programs from other sources that use 
INPUT, and pressing the CLEAR key 
while in this mode wipes the entire 
screen clean, removing any work the 
student has done. This can be very 
frustrating in an educational program, 
so I developed this routine to bypass 
that problem. 


Educational Uses 

Math Miner \ets you choose from 
addition, subtraction, multiplication 
and division, or a combination of any 
of these. On running the program select 
the numbers 1-4, which give the type of 
math problems. You may then choose 
a difficulty level (1-5) that controls how 
hard the problems will be. Next, choose 
whether you want the problem types 
assorted. Pressing “Y’ while on multipli- 
Cation gives problems of the two cate- 
gories before it (addition and subtrac- 
tion), while pressing ‘N’ gives only 
multiplication. You be the judge of how 
difficult the problems should be. This 
feature lets the program grow with the 
student. 

Also included is a variety of responses 
in the DATA statements at the beginning 
of the list. This adds a little spice to the 
program and helps reinforce reading 
skills since the student must read all the 
text to effectively play the game. 


MC-10 Version Only 

I had to make a number of changes 
to make this program work on the MC- 
10’s cramped keyboard. MC-10 does 
not have separate arrow keys like the 
CoCo. Instead, to use the backspace 
arrow or cursor controls, the control 
key must be held down while hitting 
either ‘A’, ‘S’, “W’ or ‘Z’. Since these keys 
are visibly marked with the arrow 
symbols, I made a change in the pro- 
gram to allow it to react to those letters 
without having to press the control key. 
This is also true when using the back- 
space arrow to correct an answer on a 
math problem. Press the ‘A’ key, which 
is normally the backspace with control, 
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only you don’t need to use the control 
key. 

To keep the line changes to a min- 
imum, I used variables Al, A2, A3 and 
A4 to stand for the ASCII values of the 
keys pressed. If you type in the listing 
as shown, the values of the arrow keys 
are used. However, if you wish to use 
the ‘A’, ‘S’, ‘W’ and ‘Z’ keys, Line 15 
must be changed so it is no longer a REM 
with an IF “THEN statement. Therefore, 
replace Line 15 with: 


15 MC=1536@:A1=87:A2=90: 

A3=65:A4=83 

Use of the REM in the listing prevents 
these values from being used in the 
CoCo version. If you forget to change 
these values with the MC-10, you will 
find that the screen keeps flashing 
because the wrong memory location is 
being checked to see if the map scrolled 
off the screen. If this happens, make the 
change in Line 15. 

The use of these variables at the 
beginning of the program ensures that 
only one change be made to switch 
machines. I think you will find this 
much easier than having to alter a half- 
dozen lines. 

I have spent a good deal of time 
testing this out on the MC-10, but it is 
possible that I did not encounter every 
combination it generates. Therefore, if 
you get an ?SN Error in any line, retype 
it with spaces inserted between the 
BASIC commands. MC-10 interprets 
BASIC a little differently than the CoCo, 
so a line that works on CoCo without 
spaces may not always work on the MC- 
10 without inserting them. 


All Models 

Be sure to type in the DATA statements 
exactly as they appear. This makes sure 
we do not get any word-wrap problems. 
Conclusion 

Give Math Miner a try. Those with 
youngsters in the family will find that 
they will spend a good deal of time 
trying to increase their scores. Most 
importantly, however, is my hope that 
this program may inspire one of you to 
create something original much the way 
those early programs I experimented 
with did for me. C) 
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The listing: MATHMINR 


1 REM 3355555656560 604500 EEEE 
2 REM® MATH MINER (C)1985 = = # 
3 REM® BY FRED B.SCERBO + 
4 REM# 66 HARDING AVENUE 3 
J REM# NORTH ADAMS, MA. 01247 # 
G REME HHH 54505000 ETETS 
16 CLS6:CLEAR480 :DIMR(8 8,5) ,PS¢ 
8 8) sAl=94 :A2=18 :A3=8 AEF 
13 REM IF MC-1@ THEN MC=15366:A! 
=87 :A2=96 :A3=65 :Ad=83 
20 READI : 1FI=@THEN35 
23 PORY=1T07:SETC) ,Y¥ 1) sNEXT 
38 GOTO28 
35 READ] : JF ]=@THENS®@ 
40 SET(I 1,1) :G0T035 
43 DATAS ,4,7,18,14,18,22,25,38,3 
3,36,39 ,42,48,51 ,57,8,2,3,9,6,11 
342,13,16,17,19, 26 31 ,32,34,35,6 
38 SETC11,4,1) 3SET¢12,4,1) SETCI 
3 54,1) :SET¢23, 4,1) sSET(24 4,1) sF 
ORT=1706:SET¢42+41 141.1) sNEXT 
39 FORJ=1T07STEP3:FORY=52T054: SE 
TCY 1,1) sNEXTY ,J sFORI=1TO4STEP3: 
FORY=58T061 :SETCY 1,1) :NEXTY,] 
68 SET(61,2,1) sSET(41,3,1) sSET(S 
¥ 5,1) :SET(68 6,4) sSETC61 7,3) 
63 PRINT@162," BY FRED B.SCERBO 
{C) 1985 “s 
7@ PRINT@228," SELECT PROBLEM LE 
VEL: "s:PRINT@294," 1) ADDITION 
*ssPRINT@326," 2) SUBTRACT 
JN 
79 PRINT@358,° 3) MULTIPLICATION 
* sPRINT239@ ,". 4) DIVISION 
$ 
8B X$=]NKEYS :HK=RND(9999) : IFX$=" 
“THENS® 
85 LL=VAL(X$) JF LLCITHENGS 
96 IF LL>4THENSS 
95 PRINT#452,° DIFFICULTY LEVEL: 
1-6 "3 
166 X$=JNKEYS : JFXS="" THEN 86 
165 DL=VAL(X$) : IF OL<1THENIG@ 
116 JF DL>STHENI6@ 
115 OL=DL#75 
128 PRINT2452," ASSORTED LEVELS 
(Y/N) "5 
125 XS=INKEY$: JFX$=""THENI 25 
138 IFX$="Y°THEN AT=1:60T0145 
135 IFX$="N°THEN AT=6:60T0145 
148 GOTO125 
143 CLS@:PRINT#263,° PLEASE STAN 
D BY '; 
136 L=1:Hed Ves OHI OVE 1 UF=560 
:PA=6 :SP=RND(8) +2 
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155 SH@:BP=1 : W328 

168 TF=4806+RNO(DL) #RNDC(DL) 

165 RS=CHRS(128) sBS=REERSARSERS : 
FORI=17046 :WS=WS+8$ 3NEXT] 

178 FORI=1T08 :FORY=6T07 :PSCY41 , J 
J=32¢Y 8442 SNEXTY 22=2 +32 :NEXT! 
175 FORI=1T05:FORY=1708:FORG=170 
8:P=RND(5)-1:1F P)2THEN P=8 

188 1F P=ZTHEN P=RND(3)-1 

185 ROY 0, 1)=P 

196 IF P=2THEN 2=1 

195 NEXTQ,¥ : 1FZ=6THENR(8 8,1 )=2 
266 2=6 :NEXT] | 
265 R(1,1,1)=8 

216 FORI=1T016 :READERS¢1) :NEXT 
215 DATA*THE COAST IS CLEAR. YOU 
MAY NOVETO ANOTHER ROON;" ,°NO 0 

NE IS HERE. YOU MAY PROCEED TO A 
NOTHER CHAMBER IF YOU DARE!" 

220 DATA"SO FAR, SO GOOD! NO DAN 
GER 1S INSIGHT AT THIS POINT!*," 

YOUR LUCK IS HOLDING OUT SO FAR. 
DON’T GET T00 CARELESS!° 

225 DATA"YOU SEE NOTHING BUT DAN 
P, BARE WALLS AROUND YOU. KEEP 
GOING." 

238 DATATTHE STONE FLOOR IN FRON 

T OF YOU HAS A COLD EMPTY LOOK. 
60 ON." 

235 DATA" THIS HALLWAY APPEARS AS 
ENPTY ASALL THE REST. CONTINUE. 


246 DATA'YOU’RE LUCKY THAT THE T 
ORCHES ARE LIT TO GUIDE YOUR W 

AY. GO '",°] HEAR SOMETHING! OH 

NO, 17°S A GHOSTLIKE FIGURE!* 
243 DATA’THE SPIRIT CREATURE HAS 
JUST | APPEARED BEFORE YOU!" 
256 CLS8:FORI=8T031 :PRINTSI ,CHRS 
(96) 5 sPRINT@1 +288 , CHRS(96) s NEXT 
255 PRINT@11,° LEVEL "sL: 

268 PRINT#32,°°; 

265 FORI=1T08:FORY=1708 

278 IFRCY ,1 ,L)=@THENPRINTBS; 

275 IFRCY J ,LI=1THENPRINTRSCHRS( 
116) CHRS(114)R$: 

288 JFRCY 1 ,L)=ZTHENPRINTRSCHRS< 
112)CHRSC119)RS: 

285 NEXTY ,] 

298 GOT0380 

295 PRINT@PSCH VRS: sPRINT@PSCH, 

V)+3 RS: 

368 TNTN+) : ]FUF<=6THENS75 

305 IFPEEK( 1824+MC) <@THENZ5@ 
318 X$=]NKEY$: JFX$=""THENSI6 

313 TEXS="a°THENISS 

an JFXS=CHRS(Al THEN V=V-1:60T0 

325 JFX$=CHR$(A2) THEN V=V+1 :60TO 
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308 

338 IFXS=CHRS(A3)THEN HEH-1 :G0TO 
388 

335 IFXS=CHRS(A4) THEN HEH#S 6070 
388 

340 1FX$="1" THEN358 

345 GOTO300 

358 PRINT@W,WS; :PRINT@W, *YOU HAV 
E*UF*FUEL UNITS." :PRINT*YOU ARE 
CARRYING: " 

955 IF WAITHENPRINT" THE NAGIC 
WAND® 

368 IF KY=1THENPRINT® THE HELIC 
OPTER KEY® 

365 IF SH=ITHENPRINT® THE ENCHA 
NTED SHIELD® 

378 IF WA=@ AND KY=@ AND SHEOTHE 
NPRINT® ONLY YOUR FUEL PACK.* 
375 GOTO380 

368 IF HCITHEN He! 

385 IF HSTHEN H=8 

390 IF V<ITHEN eI 

395 IF V)STHEN V8 

406 PRINT2PS(OH,OV) R$; :PRINTAPS 
(OH,0V)+3, R$: 

405 PRINT2PS(H,V) ,CHRS( 123): :PRI 
NT@PS(H,V) #3, CHRS(125) : OHH s0V= 
y 

410 IFRCH,V,L)=2THEN49S 

415 IFRCH,V,L)=1THEN739 

420 ER=RND(18) :PRINTaW WS: 

425 PRINT@s,ERS(ER) :1F ER<OTHENS 
a0 

438 IF SH=OTHEN4SS 

435 PRINT*YOU HAVE THE SHIELD! D 
0 YOU WISHTO LOWER 17 Y/N)?" 
448 X$=INKEY'$: IFXS="Y" THEN475 
445 1FX$="N*THENASS 

458 G0T0448 

455 PRINT*HE CANNOT HOLD YOU! PR 
OCEED ON." 

468 GOTO388 

4465 PRINT*YOU HAVE NO SHIELD $0 
YOU MUST ANSWER HIS QUESTION. < 
ENTER) .* 

476 G0T0488 

475 PRINT@394, "YOU MUST ANSWER H 
I$ QUESTION. PRESS <ENTER) 0 
SEE IT.° | 
488 X$=INKEY$: 1FX$()CHRS(13) THEN 
400 

485 GOSUB795:1F PA)ISTHEN7SS 
498 GOTO380 | 

495 CHERND(3) 

500 IF PACSP THENSIG 

585 G0T0S25 

518 PRINT@W,WSs:PRINT@d, "THIS PA 
SSAGEWAY WILL NOT WORK UNTIL Y 
OU HAVE SOLVED MORE OF® 


a ra ‘ 
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515 PRINT°THE PROBLEMS ON THIS L 

EVEL. KEEPMOVING ON YOUR QUEST.‘ 

528 6070386 

525 IF CH=1 AND WA=1THENS3S 

338 GOT0S88 

535 PRINTAW WSs :PRINTAN, "DO YOU 

WISH TO USE THE MAGIC WAND IN 
THIS PASSAGEWAY (Y/N) ?° 

548 X$=]NKEY$: ]FX$="Y°THENSSS 

345 IFX$="N°THENS8@ 

356 60T0546 

555 CHeINTCRND(12)/4) :1F CH-@THE 

N Cie! 

368 IF CH=1THENS7@ 

565 G6O0TOS85 

578 PRINT@W WS: :PRINTAW, "THE WAN 

D KEEPS YOU FROM FALLING THROUGH 
A TRAP DOOR, BUT IT THENVANISHE 
§ FROM YOUR HAND.* :\Wé=@ 

373 G0T0368 

586 JF CH=1THEN L=L-1 

585 IF CH=2THEN6é8 

596 IF CH=3THEN L=L+1 

595 IF L=@THENG@S 

686 GOTO615 

605 PRINT&W WSs sPRINT@W, "THE PAS 
SAGEWAY LEADS TO NOWHERE .TRY AGA 
IN LATER! KEEP MOVING ON.":L=1 
616 60T0366 

615 IF L<éTHENdd@ 

626 IF KY=@THENd36 

625 G0T0640 

638 PRINT&# WS: PRINT, YOU D0 

NOT HAVE THE HELICOPTER KEY S0 

YOU MAY NOT GO TO THE  #ROOF YE 

T. "3l=5 

635 GOT0386 

648 IF UF)TF THENI@06 

645 PRINTAW WS; :PRINT&, "YOU 00 

NOT HAVE ENOUGH FUEL YET SO KEEP 
LOOKING FOR MORE CHANCESTO EARN 
FUEL. YOU STILL NEED °; 

656 PRINTTF-UF°UNITS TO ESCAPE. ° 
sL=9 

655 60T0386 

668 IF L<iTHEN L=1 

665 IF LOSTHEN L=5 

678 IF CH=2THEN6S8@ 

675 6OT0698 

686 PRINT WS: sPRINT&, “THIS PA 
SSAGEWAY ISN’T WORKING ATTHIS 7] 

ME. TRY AGAIN LATER." 

685 G0T0366 

698 IF CH=1THEN/86 

695 60T0718 

708 PRINT&W WS; PRINT, "A TRAP 
DOOR OPENS AND YOU TUMBLEBACK 10 
LEVEL *sL:FORJ=1701800 NEXT! :SP 
=RND(8)+2:PAE6 


PAGE 14 


7635 GOTO256 

718 IF CHE3THEN728 

713 GOT0388 

728 PRINTAW WS; :PRINTA&N,"THIS PA 

SSAGEWAY TRANSPORTS YOU UP TO L 

EVEL "sl sFORI=1701666 sNEXT :PA=6: 

SP=RND(8)+2 

723 6070258 

738 PRINT WS; PRINT, °YOU ARE 
IN ONE OF MANY SECRET TREASUR 

E ROOMS. YOU CAN READ A QUESTIO 

N CARVED ON THE WALL.° 

735 PRINT"PRESS <ENTER) TO READ 

THE WALL." 

740 IFINKEY$<CHR$(13)THEN740 
745 BP=RND(4)41 :GOSUB795: BP=1 
75@ IF YACRR THENS@8 

799 IF SH=ITHEN?7S5 

760 GS=RND(16):1F GS=18THENPRINT 
"YOU FIND A SHIELD ON THE FLOOR. 
* :SH1 

765 IF L=5 AND KY=@THEN?775 

778 GOT0786 

775 PRINT°A KEY APPEARS IN YOUR 
HAND." :KY=1 

788 IF WA=1THENS@6 

785 GS=RND(18)s1F GS=>)9THENPRINT 
"YOU FIND A WAND ON THE FLOOR.*: 

WA=1 

798 GOT0386 

795 PRINT@W WS; :PRINT&W, "YOU MAY 
NOT LEAVE THIS CHAMBER UNTIL Y 
OU ANSWER THIS QUESTION. WHAT IS 

) 

808 IF AT=1THENS16 

885 ON LL GOT0815 825,848 ,855 
818 KK=RND(LL):ON KK GOTO815,825 
, 848 ,855 

815 FL=RND(DL) :SL=RND(DL) :PRINTF 
L°#*SLssRR=FL¢SL 

828 GOTO865 

825 FL=RND(DL) :SL=RNDCDL):1F SL> 
FL THEN825 

836 PRINTFL*-"SL3:RR=FL-SL 

835 GOTO865 

846 WL=INTCDL/S) sFL=RNDCWL) :SL=ER 
NDCWL) 

845 PRINTFL’X"SL s sRR=FL#SL 

858 GOT0865 

855 WL=INT(DL/4) sFL=RNDCWL) +1 :SL 
=RND(WL) +1 sFL=SL#FL 

866 PRINTFL®/"SL; :RR=FL/SL 

865 PRINT" 2° sPRINT2489 ,CHR$(175 
) : 

878 Y$="" 

875 X$=]NKEY$: JFX$=" °THENS75 
889 IFX$=CHRS( 13) THEN 28 

885 IFX$=CHR$(A3) THENS9S 

898 GOTO985 
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895 PRINT#469," °:sPRINT@469 ,CHRS 
(175); 

968 GOT0876 

985 IFASC(X$)<48 OR ASC(X$) 57TH 
EN875 

918 Y$S=¥$4XS sPRINTO489 , YSCHRS(17 
“aH 

915 G0T0875 

926 YARVALCY$) 

929 IF YA=RR THENS35 

936 GOTOP4S 

939 PRINT@PS(H,V)+1 RSs sPRINT@PS 
CH,V)42 RSs SPRINT Ad WS; SPRINT OW, 
"CORRECT! THE ANSWER IS"RR:PL=RN 
DCDL) #BP+1 :UF=UF+PL 

948 PRINT*YOU GAINED*PL°NORE FUE 
L UNITS.°:PRINT"YOU NOW HAVE*UF® 
FUEL UNITS." :PA=PA+! R(H,V,L=8: 
CR=CR+1 :RETURN 

945 PRINTO&W WS; PRINT, "SORRY! 
THE ANSWER 1S°RR:PL=RND(DL#2) +1: 
UF=UF-PL:PRINT"YOU HAVE LOST°PL” 
FUEL UNITS.’ 

958 PRINT"YOU ONLY HAVE*UF*LEFT! 
* SWR=WR4 1 SRETURN 

999 PRINT M&W WSs :PRINT@,"DO YOU 
WANT TO QUIT (YAN) 2° 

968 X$=INKEYS : IFX$="Y"THENIO15 
965 1EXS="N°THEN258 

978 GOT0968 

973 PRINT Ad WSs sPRINTA&d, “SORRY Y 
OU LOST ALL YOUR FUEL § AND ARE 
NOW TRAPPED IN THESE’ 

986 PRINT"CASTLE WALLS FOREVER. 
TOO BAD' PRESS ENTER FOR YOUR § 
TATISTICS.": 

985 X$=INKEY$: ]FX$=""THENI 818 
998 TFXS=CHRS(13)THENIG15 

995 GOTOS8S 

1008 PRINTAN WSs sPRINT@W, “YOU MA 
KE IT TO THE ROOF .YOU HAVETHE KE 

Y & MORE THAN ENOUGH FUEL TO ESC 

APE. CONGRATULATIONS!" 

1685 PRINT"PRESS ENTER FOR YOUR 
STATISTICS.": 

1810 XS=INKEYS$: JFX$<>CHR$(13) THE 

N1616 

1815 CLS:PRINT@1@1 “YOU USED° TN’ 

MOVES AND’ :PRINT@165, “ANSWERED*C 

R* CORRECTLY" 

1828 PRINT#229, "WHILE DOING"WR'W 

RONG." :NQ=CR+WR: IF NQ=@THENNG=1 
1625 MS=INT(CRANG#168) sPRINT2293 
» YOUR SCORE IS°MS"4.” 

1836 PRINT#@357, "ANOTHER TRY (YAN 

) 7s 

1635 X$=INKEY$: 1FX#="Y"THEN RUN 

1846 TFX$="N°THENCLS END 

1645 GOTOI835 
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CoCo 
MATH 


by Mary and James Lamonica 


y wife, a math teacher, and I 
have found that most of the 
arithmetic programs availa- 


ble are lacking in certain areas. We tried 
to create a program that would be 
versatile and interactive with traditional 
teaching methods. In Add/Sub5, we 
think we have achieved our goal. 

Add/Sub5 has three levels of diffi- 
culty based on the number of digits. 
Addition, subtraction or a combination 
of both may be generated. You may also 
include both positive and negative 
numbers in the problems if desired. 

All of the student’s responses are 
done with the INKEYS statement to 
simplify and speed up operation. The 
back-arrow key may be used to erase if 
the student makes a typing error. Two 
colored bands move across the screen 
after the problem is printed. This is 
designed to make the student think and 
not just enter the first answer that pops 
into his or her head. 

When a student answers incorrectly, 
the problem and the incorrect response 
are stored in an array and may be 
printed out at the end. 

In creating this program, we made 
use of subroutines to do repetitive 
operations. We also used the LEN func- 
tion for determining the correct PRINT@ 
location. This was necessary because of 
the importance of position in our arith- 
metic system. To use this, we also had 
to make use of the STRS function. Lines 
8225 to 8255 and lines 8290 to 8310 
illustrate the use of combinations of the 
LEN and STRS functions. 

The program was written with a 16K 
standard BASIC Color Computer. It will 
run with 16K Extended, but since it 
needs almost 9K of RAM, it is necessary 
to type PMODE@:PCLEAR1 before you 
CLOAD the program. 
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Line 

1000 -1500 
2000 -2060 
2100 -2230 


3000 -3100 


4000 -4440 
6000 -7545 


8000 -9435 


10000-11435 


12000-12060 


13000-13100 
14000-14020 


CLASS 


Description 
Generates main menu 
Generates submenus 
Converts to negative 
numbers 

Checks for the correct 
response, keeps score 
and prompts for 
another problem or a 
return to the 
submenu 

Graphics subroutines 
Generates single digit 
problems 

Generates double 
digit problems 
Generates triple digit 
problems 

Stores incorrect 
problems and 
responses 

Printout routine 
Prompts for printout 
when array maximum 
of 50 incorrect is 
reached 


8905 186 
10010 ....215 





The listing: ADD SUBS 


5 DIM WAs<58) | 
1006 CLS(3) :SOUND128,2:SOUND!28, 


4 
1658 PRINT264, “THIS 1S A PROGRAN 
OF ADDITION & SUBTRACTION PROBL 
EMS WRITTEN BY JAMES & MARY JEAN 
LAMONICA, 1983"; 
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1168 PRINT*ENTER YOUR NAME BELOW 
AND THEN CHOOSE ONE OF THE FOL 
LOWING BY PRESSING THE NUMBER® 
1158 PRINTTAB¢5)"(1) SINGLE DIGI 
T° 

1288 PRINTTAB(5)"(2) DOUBLE DIGI 
T° 

125@ PRINTTAB(5)"(3) TRIPLE DIGI 
T° 

1255 PRINTTAB(5)"(4) PRINT OUT I 
NCORRECT RESPONSES" 
1268 PRINT#448, ENTER YOUR NANE 
HERE °; 

1278 INPUT SNS 

1358 AS=INKEY$ 

1375 A=VAL(AS) 

1385 IF AC] OR A)4 THEN 1356 
1486 ON A GOSUB 6600 8008, 16000, 
13806 

1425 SC=8:P=8 

1458 GOTO 1668 

15¢@ GOTO 32747 

2888 PRINT@96, "CHOOSE ONE OF THE 
FOLLOWING" 

2018 PRINTTAB(18)°¢1) ADDITION® 
2028 PRINTTAB(10)°(2) SUBTRACTIO 
N° 

2038 PRINTTABC18)"<3) MIXED" 
2046 PRINTTAB(16)°¢4) MAIN MENU" 
2068 RETURN 

2898 CLS(3) 

2188 PRINT@64,"D0 YOU WANT TO IN 
CLUDE NEGATIVE NUMBERS IN THE PR 
OBLEMS ? (Y=YES, N=NO)* 
2118 INS=INKEY$ 

2128 IF INS="Y° OR INS="N" THEN 
2138 

2125 GOTO 2118 

2138 RETURN | 

2208 RS=RND(3) 

2218 JF RS=1 OR RS=3 THEN X=-12X 
2228 IF RS=2 OR RS=3 THEN Y=-12Y 
2238 RETURN | 

3000 IF 21=2 THEN SC=SC+! 

3628 IF 21=2 THEN PRINT@352,"YOU 
ARE CORRECT! *;SN$ ELSE PRINT@3 
52," INCORRECT! THE ANSWER 1S °2 
3025 IF 21=2 THEN GOSUB 4268 ELS 
E G0SUB 4486 

3630 P=P+i 

3648 PRINT*SCORE="SC" OUT OF"P 
3656 PRINT"NEXT PROBLEM (N)* 
3666 PRINT*SUB-MENU <(M)° 

3078 IF 21<4)2 THEN GOSUB 12060 
3086 21$="":22¢="" 


3180 RETURN 





4666 FOR 67063 

4016 SETCH,6,4) 

4626 SETCH,!,4) 

4030 SET(H,2,3) 

4646 SETCH,3,5) 

46560 SETCH, 18,4) 

4068 SETCH,19,4) 

4078 SETCH, 28,5) 

4688 SETCH, 21 ,5) 

4098 NEXT H 

4186 RETURN 

4200 SOUND 89,6 

4210 SOUND 125,6 

4228 SOUND 147,64 

4238 SOUND 176,12 

4240 RETURN 

4468 SOUND 58,6 

4410 SOUND 58,6 

4428 SOUND 58,6 

“4438 SOUND 5,12 

4446 RETURN . 

6886 CLS¢3) :SOUND128,2:SOUND128, 
4:PRINT237, "SINGLE DIGIT PROBLEM 
§.°3 

6816 GOSUB 2866 

6238 SC=6:P=8 

6256 AlS=INKEYS 

6268 A1l=VAL(AI$) 

6276 IF Al=4 THEN RETURN 

6288 IF Al<1 OR Al>3 THEN 6258 
6296 G0SUB 2898 

6388 ON Al GOSUB 6400, 7606, 7580 
6388 GOTO 6608 

6398 RETURN 

6466 CLS(3) :SOUNDI28,2:SOUNDI28, 
4 

6418 PRINT2181,"SINGLE DIGIT ADD 
ITION.": 

6428 X=RND(9) :Y=RND(9) 

6436 IF INS="Y° THEN GOSUB 2288 
6448 2=XtY 

6445 XX$=" +° 

6468 PRINT@1 68 , TABC16)X 

6488 PRINTTAB(14)"+ °Y 

6586 PRINTTAB(14)°----- * sPRINT 
6565 GOSUB 4068 

6518 22$=INKEY$ 

6515 IF Z22$-CHRS(8) THEN Zi¢"" 
6526 IF 22¢=CHRS(8) THEN 6516 
6525 219=Z1$+22$ 

6538 21=VAL(21$) 

6534 IF 2<@ THEN PA=274-LEN(STRS 
(2)) | 

6535 IF 2=)@ THEN PA=275-LEN(STR 
$(2)) 

63346 PRINT@PA,Z1$ 

6537 IF 246 AND LEN(Z21$)=LENCSTR 
$(Z)) THEN 6558 

6538 IF 2)=6 AND LEN(Z1$)=LENCST 
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R$(2))-1 THEN 6558 

6545 GOTO 6518 

6558 GOSUB 3686 

6658 MS=INKEYS 

6668 IF Al=3 AND MS="N° THEN RET 

URN 

6665 IF M$="N° THEN GOTO 6400 

6678 IF M$="N" THEN RETURN 

6688 GOTO 6658 

6788 RETURN 

7088 CLS¢3) :SOUND128,2:SOUND128, 

4:PRINT216@ "SINGLE DIGIT SUBTRA 

CTION': 

7646 Y=RND<?) 

7845 X=RND(9) 

7656 1F X<Y¥ AND INS="N° THEN GOT 

0 7845 

7655 JF INS="Y" THEN GOSUB 2288 

7068 2=X-Y 

7878 XX#=" -" 

7088 PRINT9168 , TABC16)X 

7188 PRINTTAB(14)°- "Y 

7128 PRINTTAB(14)°----- " :PRINT 

7122 GOSUB 4866 

7125 22$=INKEYS 

7138 JF 228=CHRS(8) THEN 21%="" 

7135 IF 22$=CHR$(8) THEN 7125 

7148 21$=21$422$:21=VAL(21$) 

7142 IF 2<@ THEN PA=274-LENCSTRS 

(Z)) ELSE PA=275-LEN(STR$(Z)) 

7144 PRINT@PA,Z1$ 

7145 IF 2<8 AND LEN(Z1$)=LENCSTR 

$(Z)) THEN 7158 

7146 JF 2)=6 AND LEN(21$)=LEN(ST 

R$(Z))-1 THEN 7158 

7147 60T0 7125 

7158 GOSUB 3006 

7288 MS=INKEY$ 

7308 IF Al=3 AND MS="N" THEN RET 

URN 

7385 IF MS="N" THEN GOTO 7606 
7326 IF M$="M" THEN RETURN 

7348 GOTO 7280 

7368 RETURN 

7988 CLS¢3) sSOUND128 ,2:SOUND128, 

4:PRINT#i03,°SINGLE DIGIT MIXED. 
| 

7526 S=RND(2) 

7548 ON S GOSUB 6420, 7848 

7542 IF M$="M" THEN RETURN 

7345 GOTO 7580 

8868 CLS¢3) :SOUNDI28,2:SOUNDi28, 

4:PRINT@37, "DOUBLE DIGIT PROBLEM 

$."3 

8018 GOSUB 2006 

8655 SC=8:P=8 

8868 A2ZS=INKEYS 

8678 AZ=-VAL(A2$) 

8880 IF A2=4 THEN RETURN 
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8898 IF A2<{1 OR A2)>3 THEN 8068 
8895 GOSUB 2896 

8166 ON A2 GOSUB 8268 , 8886 , 9488 
8118 GOTO 8800 

8128 RETURN 

8206 CLS(3) :SOUND128,2:SOUND1 28, 
4:PRINT#161 ,"DOUBLE DIGIT ADDIT! 
ON’; 

8228 X=RND(99) : Y=RNDC99) 

8222 IF INS="Y" THEN GOSUB 2268 
8225 2=XtY 

8238 XX$=" +" 

8246 PAH178-LENCSTRS(X)) 

8242 PRINT@160 ,°" sPRINT@PA ,X 
8258 PA=216-LENCSTRS<Y)) 

8255 PRINT@192,°" sPRINT@PA-2,"+ 
"Y 

8268 PRINTTAB(13)°----- "PRINT 
8265 GOSUB 4060 

8278 223=INKEY$ 

8275 IF 22$=CHRS(8) THEN 21%="" 
8286 IF 22$=CHR$(8) THEN 8278 
8285 219=21$422$ :Z71=VAL(21$) 
8298 IF 2<{@ THEN PA=274-LEN(STR$ 
(2)) ELSE PA=275-LEN(STR$(2)) 
8295 PRINT@PA,21$ 

8366 IF 2<8 AND LEN(21$)=LEN(STR 
$(Z)) THEN 8348 

8310 IF 2)=@ AND LEN(21$)=LEN(ST 
R$(Z))-1 THEN 8348 

8326 60TO 8276 

8346 GOSUB 3886 

B358 MS=INKEY$ 

8395 IF AZ=3 AND M$="N° THEN RET 
URN 

8360 IF M$="N° THEN GOTO 8200 
8376 IF M$="M" THEN RETURN 

$388 GOTO 8358 

8396 RETURN 

880@ CLS(3) :SOUND128,2:SOUND128, 
4:PRINT#166 “DOUBLE DIGIT SUBTRA 
CTION’: 

8828 Y=RND(99) 

8838 X=RND(99) 

8846 IF INS="N" AND X<Y THENS838 
8845 IF INS="Y° THEN GOSUB 2280 
8856 2=X-Y 

8855 Xx¢=" -" 

8868 PA=178-LENCSTR$(X)) 

8862 PRINT21468,°" :PRINT@PA ,X 
8876 PA=216-LENCSTRS(Y)) 

8872 PRINT@192,°° :PRINT@PA-2, °- 
"Y 

8888 PRINTTAB(13)"-----° sPRINT 
8885 GOSUB 4666 

8890 Z2$=INKEYS 

8895 IF 22$=CHR$(8) THEN 21¢="" 
8966 IF 22$=CHRS(8) THEN 8890 
8965 21%=21$422$ :Z71=VAL(21$) 
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8918 IF 2<8 THEN PA=274-LEN(STRS 
(2)) ELSE PAe275+LEN(STR$(2)) 
8912 PRINT@PA,Z1$ 

8928 IF 248 AND LEN(21$)=LEN(STR 
$(2)) THEN 8958 

8922 IF 2)=0 AND LEN(21$)=LEN(ST 
R$(2))-1 THEN 8958 

8938 GOTO 8890 

8958 GOSUB 3080 

8968 NS=INKEY$ 

8965 IF A2=3 AND MS="N° THEN RET 
URN 

8978 IF MS="N* THEN 8986 

8980 IF MS="N° THEN RETURN 

8998 GOTO 8948 

8995 RETURN 

9400 CLS(3) :SOUND128, 2:SOUND128, 
4:PRINT9163, "DOUBLE DIGIT MIXED" 


) 

9420 S=RND(2) 

9438 ON S GOSUB 8226 ,8828 

9432 IF M$="M° THEN RETURN 

9435 GOTO 9408 

16666 CLS¢3) :SOUND{ 28, 2:SOUND128 
s4:PRINT@37,°TRIPLE DIGIT PROBLE 

MS’; 

16016 GOSUB 2608 

16655 SC=6:P=6 

16668 AS$=INKEYS 

16678 AS=VAL(A3$) 

10888 IF A3=4 THEN RETURN 

16696 IF A3<i OR A3)3 THEN 16866 
18695 GOSUB 2698 

16166 ON AS GOSUB 16286 , 16886 11 

408 

16116 GOTO 18608 

18128 RETURN 

16266 CLS¢3) :SOUNDI 28 ,2:SOUND!28 
s4sPRINT@101 “TRIPLE DIGIT ADDIT 
JON."3 

16226 X=RND(999) sY=RND<999) 
16225 IF X<36 OR YCi6 THEN 16228 
16227 IF INS="Y" THEN GOSUB 2206 
16238 2=X+Y 

18235 XX$=" +* 

10248 PAEI7B-LEN(STRS(X)) 

10245 PRINT#148,°° sPRINT@PA,X 
16256 PA=216-LENCSTRS(Y)) 

16255 PRINT@192,°° sPRINT@PA-2,"+ 
"Y 

10268 PRINTTAB(12)"------- " :PRIN 

1 

10265 GOSUB 4006 

16278 22$=INKEY$ 

16275 IF 22$=CHRS$(8) THEN Z1$="" 
16277 IF 22$=CHRS(8) THEN 16278 
16286 21$=Z1$+22$:2Z1=VAL(21$) 
18285 IF 248 THEN PA=274-LENCSTR 

$(Z)) ELSE PA=275-LEN(STR$(Z)) 
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18287 PRINT2PA,21$ 

10290 IF 2<8 AND LEN(21$)=LEN(ST 

R$(2)) THEN 18386 

10295 IF 2)=8 AND LEN(21$)=LEN(S 

TR$(2))-1 THEN 16388 

10297 GOTO 10278 

16388 GOSUB 3868 

10385 M$=INKEY$ 

16387 1F A3=3 AND M$="N" THEN RE 

TURN 

16318 IF M$="N* THEN GOTO 16280 

10320 IF NS="N" THEN RETURN 

16338 GOTO 18385 

10340 RETURN 

16888 CLS(3) SOUND! 28, 2:SOUND128 

,4:PRINT299 "TRIPLE DIGIT SUBTRA 

CTION' ; 

10828 X=RND(999) 

16838 Y=RND(999) 

10940 IF INS="N° AND X{Y THEN 18 

839 

19858 IF X<1@ OR Y<i@ THEN 16828 

10852 IF INS="Y° THEN GOSUB 2286 

18855 2=X-Y 

16857 XX$=" -" 

18868 PA=178-LEN(STRS<(X)) 

16862 PRINT2148 ,"" :PRINTPA,X 

10870 PA=210-LEN(STRS(Y)) 

16872 PRINT2192,"" :PRINT@PA-2,°- 
ry 

16888 PRINTTAB(12)"------- * PRIN 

7 

16685 GOSUB 4080 

10898 Z2$=INKEY$ 

10892 1F 22$=CHR$(8) THEN 21¢="" 

10895 IF Z2$=CHRS(8) THEN 10998 

10897 21$=21$422$ :21=VAL(21$) 

10980 IF 2(@ THEN PA=274-LEN(STR 

$(2)) ELSE PA&275-LEN(STRS(2)) 

10985 PRINTPA,Z1$ 

16918 IF 246 AND LEN(21$)=LEN(ST 

R$(2)) THEN 18920 

10912 IF 2)=@ AND LEN(Z1$)=LEN(S 

TR$(2))-1 THEN 10928 

16915 GOTO 18898 

10928 GOSUB 3806 

16938 NS=INKEY$ 

10935 IF A3=3 AND MS="N° THEN RE 

TURN 

10940 IF MS="N* THEN 16980 

10958 IF NS="M" THEN RETURN 
10968 GOTO 18938 

16978 RETURN 

11488 CLS(3) :SOUND128,2:SOUND128 
4:PRINT#163, "TRIPLE DIGIT MIXED 
11428 S=RNDC2) 

11438 ON S GOSUB 10228, 18828 
11432 JF NS="N" THEN RETURN 
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11435 GOTO 11498 

12080 X$=STR$(X) 

12018 Y$=STRS<Y) 

12015 Wis=" = ' 

12028 YYS=X$4XXS+Y$+aNS+Z1$ 
12038 ANEANSS 

12040 IF ANDS@ THEN 14600 

12858 WASCAND=YY$ 

12060 RETURN 

13086 CLS 

13018 PRINT232,°T0 PRINT OUT THE 
PROBLENS THAT HAD INCORRECT RE 

SPONSES PLEASE BE SURE THAT PAP 
ER PRINTER 1S PROPERLY CONNECT 

ED AND TURNED ON. WHEN YOU AR 
E READY, PRESS <ENTER) AND THE 

PROBLEMS WITH THE INCORRECT RE 
SPONSE WILL BE PRINTED.* 

13015 PRINT:PRINT"IF YOU WISH TO 
DO MORE PROBLENS OR YOU DO NOT 
WISH TO PRINT THE INCORRECT RESP 
ONSES, PRESS <M) AND THEN <ENTE 

R) TO RETURN TO MAIN NENU." 
13020 INPUT RES 

13025 IF RES="* THEN RETURN 
13838 PRINTH-2,"THESE ARE THE PR 
OBLEMS THAT THE STUDENT® 

13032 PRINT#-2,"ANSWERED INCORRE 
CTLY. ALSO GIVEN ARE THE" 

13834 PRINT#-2, "INCORRECT RESPON 
SES THE STUDENT GAVE.* 

13836 PRINT#-2,°THESE PROBLENS S 
HOULD BE WORKED ON WITH" 

13038 PRINTH-2,"THE INSTRUCTOR. 
13049 PRINT#-2,"---------------- 
13842 PRINT#-2,°STUDENTS NAME ° 
SNS 

13844 PRINT#-2,"---------------- 
13050 FOR NA=1TOAN 
13868 PRINTE-2,WAS(NA) 
13070 NEXT NA 

13075 IF ANE® THEN PRINT#-2,*ALL 
THE PROBLEMS WERE ANSWERED CORR 
ECTLY® 

13080 AN=O:NA=@ 

13898 PRINT&-2,"---------------- 
13186 RETURN 

14000 CLS 

14816 PRINT'DUE TO THE MAXIMUM C 
APACITY OF ‘THE STORAGE ARRAY, Y 
OU MUST NOW PRINT THE INCORRECT 
RESPONSES." 

14820 INPUT "WHEN READY, PRESS < 
ENTER). "RES 

14038 RETURN 

32767 END 
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Save the kingdom of Ferra from the blazing perils. . . 


By Mike Kilby 


terrible crisis has begun in the small kingdom of Ferra. Great 
arrows of fire falling from the sky have started to destroy 
the land. The King has called a meeting of the people to hear 
suggestions on how to save the kingdom. During the meeting you 
snicker sarcastically and say to yourself, “With a bucket of water.” 
The King overhears you and thinks it’s a wonderful idea, so he 
chooses you to carry out the task. The King and the kingdom are 
depending on you! 

Your job is to carry a bucket of water and catch the falling fire 
arrows, which are worth points. To further complicate things, a time 





bomb has been planted beneath the ground upon which the fire 


drops. If an arrow hits this bomb the entire kingdom will be 
destroyed. Also, if fire reaches the ground, points are lost and a hole 
is left into which you must jump in order to catch the other falling 
menaces. 

Firestorm, requiring Extended Color BASIC, is an arcade-type 
game involving skill and luck. The high-speed POKE is used in Line 
90. For those who cannot use the high-speed POKE, simply remove 
POKE 65495,@ from the line. The number of men (three are given 
at the beginning of the game) is indicated by the lines at the top right 
of the graphics screen. The men are moved side to side by using the 
right joystick. The game begins after a title and difficulty screen are 
displayed. 


16K Cums 
ECB po RAINBOW 
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The listing: FIRESTRM 


16 GOTO 1186 

28 PNODE 4,1 

30 HS=6 

40 DIM C(5,5),F(5,5) 
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56 DRAW" S4BM8, 6 ;DREUDBDL9D2F 205U 
2RUSROSRO2USE2U" 

68 GET(O,8)-(24,11),C,6 

70 DRAW" BN3 , 28:D4F2U3D362UGHU2F" 
80 GET(@,8)-<5,34) ,F 6 

98 PCLS:POKE65495,8 

188 FORBH=1T03@STEP7 

118 FORBV=150TO1 98STEPI 4 

128 LINE(BH,BV)-(BH+5,BV#5) , PSET 
BF 

138 NEXTBV,BH 

140 FORBH=STO3@STEP7 

158 FORBV=157T0198STEPI4 

168 LINE(BH,BV)-(BH#5 BV+5) ,PSET 
BF 

178 NEXTBV, BH 
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{88 FORBH=228TO255STEP7 

198 FORBV=158T0198STEP14 

268 LINE(BH,BV)-(BK#5,BV45) , PSET 
BF 

218 NEXTBV,BH 

220 FORBH=223T0258STEP7 

238 FORBV=157T04 9@STEPI4 

240 LINE(BH, BV) -(BH#5,BV45) , PSET 
BF 

258 NEXTBV,BH 

268 LINE(35,187)-(228 198) ,PSET, 
BF 

278 LINE(26,175)-(229, 186) ,PRESE 
T, BF 

288 SCREENI , ! 

298 O=0:L=4:S0=0:M=3 
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306 IFG=1THENNE] ELSEN=5 

318 P=48+RND( 178) 

328 DRAW" CABM"#STRS(P) 4", 1S9REFR 
L6H" 

338 COLOR! 

340 IFM=3THEN378 

958 1FM=2THENLINE( 245, 2)-(245,6) 
, PRESET :GOT0388 

368 JF M=1THENLINE( 258, 2)-(258 6 
) PRESET :G010398 

378 LINE( 245 ,2)-(245,4) ,PSET 

988 LINE(250,2)-(258 4) ,PSET 

398 Ki=186:K2=175 

408 FORT=1T0N 

41@ Re35#RND(175) 

428 FORF1=070148 STEP L 

438 AEJOYSTK(8) : FACI OTHENKI=Ki- 
8 :ELSEIFA)S@THENKI=K1+8 

448 JFKA (35THENK1=35:ELSEIFKI +24 
)21 STHENKI=195 

458 B=PEEK( 65288) 

468 1F(B=1260RB=254)ANDA(1 @THEN 
GOSUB876 

478 1F(B=1260RB=254)ANDA) SO THEN 
60SUB948 

480 PUT(R,F1)-(R#5,F1436) ,F ,PSET 
498 PUTCKI ,K2)-(K1424,K2411) ,C,P 
SET 

580 IFPPOINT(K1#12,K2¢12)=8THENI 
810 

518 NEXTF1 

520 IFCR)K1+4)AND(R«KI #16) THENSO 
UND258 ,1:SC=SC+(188L)sELSE 638 
538 LINE(R,F1)-(R#5,F1436-L) ,PRE 
SET ,BF 

540 NEXTT 

558 IFQ=1THENC=RND(4)ELSEC=C#i :N 
=Nt5 

548 IFC=1THENL=5 

578 IFC=2THENL=7 

588 IFC=3THENL=16 

590 IFO=4THENL=14 

688 IFC=STHENL=28 

618 IFC=éTHENL=28 

428 GOTO 408 

638 SC=SC-38 

648 LINE(R,F1)-(R¢5,F1436-L) ,PRE 
SET ,BF 

658 DRAW"BM+STRSCR)4® , 187sCOFD2 
R4U2ERL2GDL3UHR4DL 2° 

668 PLAY'T255V31D" 

678 IF R+3<P OR R+3)P+5 THENS4O 
$88 PLAY"V31T16001 GFFEDGO36DBEFD 
O4GDFEGOFEBCEGDFEGDT15@030F EGDFE 
GDCBDCGEFDEGD1 20601 BEBBBDGEF DGBE 
BEGDFEDGDEGEDBBAG® 

698 FORD=1T028@STEP2 

708 CIRCLE(P,188) ,D, , «25 
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716 NEXTD 

726 COLOR 

738 PLAY"T16V3103CDEFGFDED® 

740 FORD=1T0288 :NEXTD 

756 IF SC)HS THEN HS=SC ELSE 788 
766 CLS:PRINT@7@, "ENTER INITIALE 
S°:: INPUTNS 

778 IF LEN(NS)3THEN 766 

786 CLS:PRINT#@137,"SCORE:" ;SC 
790 PRINTO232, "##84¢RESE ERE! 

866 PRINT#232+32,°2" :NS 

818 PRINT#275,“#" 

828 PRINT#268 HS; 

838 PRINT@232464 ,"eexneeenens® 
846 INPUT®PLAY AGAIN® :A$ 

858 IFAS="Y"THEN1326 

848 ]FAS="N" THENENDELSE846 

878 LINECKI ,K2)-(K1+36 K2+11) ,PR 
ESET , BF 

888 K1=K1-4:K2=K2-11 

898 PUTCKI ,K2)-(K1#24 ,K2411) ,C,P 
SET 

966 LINECKI ,K2)-(K14#24 ,K2+11) ,PR 
ESET , BF 

916 Ki=Ki-4:K2=K2+11 

aa PUTC KI ,K2)-¢K1424 ,K2411),C,P 


938 RETURN 
948 LINECK! ,K2)-(K1424,K2#11) ,PR 
ESET BF 

958 Ki=K1+4:K2=K2-11 

968 PUT(KI ,K2)-(K1+24,K2411),C,P 
SET 

978 LINECKS ,K2)-(K1+24 ,K211) ,PR 
ESET , BF 

980 Ki=K1#4sK2=K2+11 

998 PUTCKI ,K2)-(K1424,K2411) ,C,P 
SET 

1808 RETURN 

1010 LINECK1 ,K2)-(K1+24K2#11) ,P 
RESET , BF 

1020 DRAW*CIBM"+STRS(K1+8) +", 188 
s DREUDBDL 8D 2F 205U2RUSRDSRD2U5E2U 


1638 PLAY°V3101 T25DDEGGFEDDEGGFE 


1848 FORD=170280 :NEXTD 

1058 Nel-1 

1860 1FM<ITHEN736 

1078 LINE(35,F1)-(228,191) ,PRESE 
TBF 

1088 LINE(35,187)-(220, 198) ,PSET 
BF 

1098 GOTO 328 

1168 PMODE3,1:PCLS 

1110 H85:Ve40 

1128 FOR T=1T05 

1138 DRAW"C4BM"4STRS(H)4® , °4STRS 
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(V)4* sD2BU@RSLSUIORIO° 
1140 DRAW" BM*+STRS(H#20)4" ,"4STR 
$(V)4" sRIGLSD2BRSL16° 

1158 DRAW"BM"+STRS(H#40)4", “4STR 
$(V)4" sRIGD16L10F16H1@U16D28° 
1168 DRAW*BM"+STRS(H+60)4", "4STR 
$(V)4" sRIGLIOD/ORSLSOIORI6® 

1178 HEH+d Weve 

1188 NEXT T 

1198 H=75:V=120 

1208 FOR T=1T0 5 

1218 DRAW"BM"+STRS(H)#® , °¢STRSCY 
)4" sRIGLIODIGRIODIGL16° 

1228 DRAW*BM"+STRS(H#20)+" ,"4STR 
$(V)4" RIGLSD20" 

1238 DRAW"BM" +STRS(H+48)+" , °4STR 
$(V)4" sRIGD2BL10U28" 

1248 DRAW*BM"+STRS(H#48)4" ,"4STR 
$(V)4" RIGDIOLIGF10H1GU10D28° 
1258 DRAW*BM"+STRS(H#88)+", "4STR 
$(V)4" sD28U20F5E5028" 

1260 HeH#1 :VeVel 

1278 NEXT T 

1288 DRAW" SBBM1 20, 75;D1@RUL@RD18 
F3U6D662L 4H2USDSREFRZEFHGLDSEL 2" 
1298 SCREENI ,@ 

1388 PLAY'T3V3101 DDGDDFDDGDDCDDC 
DDT1D" 

1318 FORD=1T01 266 :NEXTD 

1328 CLS 

1338 PRINTO? , "sexaassaazes® 

1348 PRINT241,°sfire stora#" 
1358 PRINTI73, "#eeneseeasax 
1368 PRINT2136,"RANDOM LEVELS® 
1378 PRINT2201,° OR" 

1388 PRINT9263, "INCREASING LEVEL 
S° 

1398 PRINTA360, "INPUT(R/I)"3 
1408 INPUTOS 

1410 IFQS="R°THENO=1 ELSEIFOS="1 
"THENG=2:ELSE1398 

1428 IFA$="Y* THENS@ELSE20 
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The Zoom-Bloom Plant’ 
By Bill Bernico CWEO 2 228/c0 
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Look at a flower. How did it get there? Like every other plant, it started out ¢ a eS 
as a seed. The seed popped open one day and a sprout found its way to the os - 
surface and reached skyward. The Seed visually illustrates nature’s process. It \ peers coal 
shows a seed in the ground popping open to produce a sprout, and the sprout a 7 if 7 
grows upward untill buds appear. Petals form around the buds and you have a ’ . Zg 
flower. Ssounds simple, I Know, but there are a few neat programming tricks that 
put the flower on the screen. 

First, we DRAW and PAINT the sun (every plant needs sunlight). Next, we draw 

the ground — red ground, but ground nonetheless. The title is placed in the 

upper right corner. Keep this title, SEED, in mind as the program comes to a 

finish. If you look closely in the soil, you’ll see a tiny seed. After a couple 

of seconds you’ll hear and see the seed pop open and begin to grow. 

With the help of a handy FOR/NEXT loop, we created the illusion of movement; 
that’s what makes the stem grow and branch off. From here we used CIRCLE, PAINT 
and more sound effects to produce the petals. Once all the petals are neatly in 
place, watch the upper right corner again. The word SEED is replaced by the word 
FLOWER. After all, what started out as a seed is now a flower! 





The Listing: THE SEED 


18 ‘THE SEED 
26 “BY BILL BERNICO 


30 “788 MICHIGAN AVE. 

40 ‘SHEBOYGAN, WI 5388! 

50 (414) 459-7358 

55 “CONCEPT BY KATHIE BERNICO 
60’ 

70 PMODES, 1 :SCREENI ,8:PCLS:DRAW" 
BM@ , 178R255° :PAINT(3,179) ,4,4:C0 
LOR2:CIRCLE( 38, 38) ,25:PAINT( 38, 3 


€ 


€ 


:60SUB398 :NEXTQ:DRAW"BFI8 ° 

130 FORQ=1706:DRAW"ERE" :G0SUB370 
: 6OSUB39@ :NEXTQ: DRAW" BGI 8BUI 2°? 
140 FORG=1T043:DRAW"U" :GOSUB378: 
GOSUB396 :NEXT6 

158 CIRCLE(128,8@) ,8:PAINT(128,8 
8) ,2,3:60SUB380 :GOSUB368 

148 CIRCLE(103,115) ,8:PAINT(103, 
115) ,2,3:G0SUB386 : 60SUB346 

178 CIRCLEC155, 119) ,8:PAINT(155, 
119) ,2,3:G0SUB380 :G0SUB366 

186 CIRCLE(138,91) ,9:PAINT(138,9 
1) ,4,3:60SUB480 :G0SUB360 

198 CIRCLE 143,75) ,9:PAINT(143,7 





288 CIRCLE(139, 116) ,9:PAINT(139, 
114) ,4,3:60SUB486 :G0SUB348 

298 CIRCLE( 147,133) ,9:PAINT(147, 
133) ,4,3:60SUB488 :G0SUB6 

900 CIRCLE 144,131) ,9:PAINT(164, 
131) ,4,3:60SUB486 :60SUB3é8 

318 CIRCLE(17@, 115) ,9:PAINT(178, 
115) ,4,3:60SUB408 :60SUB368 

328 CIRCLE(155, 183) ,9:PAINT(155, 
163) ,4,3:G0SUB48@ :GOSUB368 

338 CIRCLE(128,98) ,3:G0SUB410:G0 
SUB3460:CIRCLE( 163,115) ,3:GOSUB41 
@ :G0SUB368:CIRCLE(155, 119) ,3:G0S 
UB418 


8) ,2,2:DRAW" BN36 , 30N50 , BOM30 , 36M 3) ,4,3:60SUB466 : 6OSUB346 346 DRAWBM186 , 48C1U4H4L8G4D4F4R 
66 , 60M36 , S8N86 , SOM36 , 38M15,116N3 206 CIRCLE(128,64) ,9sPAINT(128,64 8F4D464L BH4U4BD8BRZ9NR1 BUI 2NR7UI 
@ , 36M110, 15M38 ,36M118,15°sCOLOR 6) ,4,3:60SUB466 :G0SUB348 2R1 6BRANR16D1 2NR7D1 2R1 OBRIRI BESU 


3:PSET( 128,184) 
88 DRAW*BM198 ,SL26R10028BR18U280 


218 CIRCLE(115,75) ,9sPAINTC115,7 
3) ,4,3:60SUB466 :60SUB3466 


18H3L 18D246M1 66 ,32C3L 1 6D8NR7D12B 
R1 GNR1GU2ZEBR1 6BD4D1 2F4RSE4U1 2H4L 


16R12U1 @D2BBRENRI GUI ONR7UL@RI OEM 220 CIRCLE(119,91) ,9:PAINT(119,9 4G4BR26BU4D1 6F 4E 4NUGF4E4U1 GBRONR 
190 , 4QU4H4L 9G4D4F 4RSF4D4G4L HAUG 1) ,4,3:G0SUB480 :60SUB368 18D10NR7D1OR1@BR4U2@RBF4D364L7F 1 
BOSBR2GNRI BUI ANR7U1 2R1 @BRANRI ODI 238 CIRCLE(111,127) ,9:PAINT(111, ee) 

2NR7D12R1 @BRIRIBESUI SH3L 10024" 36 127) ,4,3:G0SUB488 :GOSUB68 358 GOTO 358 

OSUB348 240 CIRCLE(118, 112) ,9:PAINT(118, 368 FORX=170568 :NEXTX:RETURN 

98 CIRCLE(128, 184) ,4:PLAY*T25L.25 112) ,4,3:60SUB488 :GOSUB368 378 FORX=1T0100 :NEXTX:RETURN 
5V31 O1ADCF BAGEDVI 6ACGADV4EABCAED 258 CIRCLE(106,101) ,9:PAINT(186, € 380 PLAY*V30STAL4 517150028 312512 
B* :G0SUB368 101) ,4,3:G0SUB468 : GSUB348 518° :RETURN 

160 DRAW" GNI 28, 184U5* :60SUB378 268 CIRCLE(9@, 184) ,9:PAINT( 98,18 398 PLAY"T280V3101DAC" :RETURN 
110 FORG=1T05@ :DRAW"U" :G0SUB378 : 4) ,4,3:60SUB480 :60SUB368 408 PLAY"L255T255V2005CGCEC® :RET 


GOSUB396 sNEXT6 
126 FOR@=1T06 :DRAW*HLH" :G0SUB376 
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278 CIRCLE(91 124) , 9:PAINT(91 ,12 
4) ,4,3:60SUB488 :G0SUB368 
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URN 
416 SOUND246 ,1 RETURN 
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GAME 





Keep up with the pace in this reptile race 


Sidewinding 


Skirmishes Wit 
Video | 





By Robert E. Rice 


young children (although Mom 

and Dad will get a kick out of it), 
Snake Chase is loosely based on the 
game Colorful Maneuvers by James 
Wood. Two snakes, under control of the 
right and left joysticks, scurry about the 
screen leaving ever-growing trails in 
their wake. The game ends when one of 
the snakes attempts to run over either 
one of the trails or the screen border. 
Scoring is updated and displayed by 
name after each round. 

Only 3.6K in length, Snake Chase 
runs on the smallest of CoCos. It is fully 
playable on non-Extended BASIC ma- 
chines, but lines 60 and 390 will have to 
be changed to: 


60 IF INKEYS=”” THEN 60 ELSE 
FOR Q=1 TO 1500:NEXT Q 


Qin: in concept and playable by 


39@ CLSB:AS="”:V=7@:CS=CHRS 
(159) :FORQ=1 TO 31:C1$=C1S+Cs: 
NEXTQ:C2S=CS+C$ 


Also, change the words EITHER 
FIREBUTTON in Line 720 to read 
ANY KEY. This allows the game to be 
started using a key press (followed by 
a three-second delay) instead of the 
firebutton. 

The POINT function is used in lines 
110 and 160 to determine the existence 
of a trail or border (test for “pixel on”). 
In this way, a player can lose when 
running over his own trail as well. This 
precludes the chance of a stalemate by 
not allowing players to continually back 
up over the top of themselves. 

Despite the use of the slow SET” 
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RESET graphics, the game tends to move 
along quite rapidly. Too quickly, it 
turned out, for my children to keep up 
with. Line 730 offers the option of a fast 
or slow speed. The speed of either mode 
can be adjusted by varying the value of 
‘S’ in Line 740. ‘S’ is used to establish 
the delay duration for successive snake 
movements in Line 180. 

Once motion has begun, the snakes 
continue in those directions until in- 
structed to do otherwise. This holds true 
even when the joysticks are neutralized. 
Variables HO, H3, VO and V3 keep track 
of this activity. 

As you can see, the game itself is 
contained entirely within lines 30-330. 
The remaining two-thirds of the pro- 
gram provides frills and fluff. 

Beginning at Line 380, the title screen 
routine uses nested (one inside the 
other) FOR“NEXT loops and DATA state- 
ments. This turned out to be a simple 
means to display large block letters on 
a text screen. It also alleviated the need 
to type CHRS 180 times. The screen was 
first laid out on a standard page of 
PRINT® locations copied from the 
CoCo manual. That information was 
then transposed into the respective 
block graphics codes and placed in 
DATA statements in lines 460-540. Each 
DATA line corresponds to one full 
printed line of 20 graphics blocks. The 
FOR/“NEXT loop in Line 420 reads the 
data, converts them to CHR$ and con- 
solidates them into A$. Lines 410 and 
430 control the sequence of data reads 
and PRINTing positions for A$. 

The music, lines 560-590, plays the 
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familiar snake charmer’s tune using the 
SOUND command. This technique 
greatly simplified the process of trans- 
posing the tune into corresponding 
SOUND values. With the CoCo manual 
as a reference, I wrote the note values 
on top of the keys of my daughter’s toy 
organ. While pecking out the melody, 
I wrote down the values as I went, 
storing them in DATA statements. The 


data 1s arranged with tone and duration 
values adjacent. Since the data is read 
note by note with a FOR/’NEXT loop 
(Line 560), there is sufficient delay in 
processing to keep identical adjacent 
tones from blending together. The 
results are every bit as good as can be 


‘produced by Extended Color BASIC’s 


Variables Function 

E | Miscellaneous 
FOR/NEXT loops 
Direction of snake 
head movements 


Q 
H1, V1, H2, V2 


HO, H3, VO, V3 Snake head motion 

H, V Read joystick positions 
S; SP Control speed of game 
C1$, C2§$ Text borders 

R,L Player scores 

R$, L$ Player names 

A Identifies winner 

A$ Housekeeping 


PLAY command. This method also saves 
a lot-of typing. 

Due to the “straight through” design 
of the program, the only subroutine 
needed is the one that draws the border 
around text screens. Two multicharac- 
ter graphics strings (C1$ and C2$) are 
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formed in Line 390. The border subrou- 
tine itself resides in lines 340-370. It 
prints C1$ at the top and bottom of the 
screen. C2$ is printed along the far right 
border with a FOR/NEXT/STEP loop. 
This forces a screen wrap-around that 
places half of C2$ on each edge of the 
screen. PRINTing to the last screen 


position would cause a line feed for the 


he listing: SNKCHASE 





@ “##SNAKE CHASE/ROBERT E. RICE/ 
JUNE 1984 

1@ GOTO 388 

20 “#3GAME ROUTINE 

38 SOUND24@ ,5:CLS@:E=RND(8) sFORG 
=97063:SET(O,0,€) :SET(O, 31 ,E) :NE 
xTe 

40 FOR Q=07031 :SET(@ ,Q,E) sSET(43 
,0,£) :NEXTA 

50 Hi=46:V1=3:H2=15:V2=28:SET (HI 
V1 ,3) :SETCH2 V2, 4) 

60 E=PEEK( 45280) :1F E=255 OR E=! 
27 THEN 68 

70 HO=0:VO=1 :H3=0:V3=-1 

BB H=SGNCINT(( JOYSTK(#)-5)/58)): 
VeSGNC INT ((JOYSTK(1)-5)/58) ) 

90 IF HX8 OR VX6 THEN HO=H:V8= 
y 

100 Hi=Hi+HO:Vi=V1+V8 

110 IF POINT(HI,V1)<)@ THEN A=1: 
GOTO 198 

120 SETHI Vi ,3) 

130 HESGNCINT (<JOYSTK(2)-5)/58)) 
SVESGNCINT((JOYSTK(3)-5)/58)) 
140 IF H<)@ OR V<)8 THEN H3=H:V3 
= 

150 H2=H24H3:V2=V24V3 

168 IF POINT(H2,V2)<)@ THEN AF2: 
GOTO 198 

178 SET(H2,V2,4) 

188 FOR SP=1 TO S:NEXT SP:GOTO 8 
6 

198 “#3WIN/LOSE ROUTINE 

208 SOUND10, 18 

210 IF #=2 THEN 238 

220 FOR Q=1T025:RESETCHI ,V1) :SOU 
ND268 , 1 :SETCHS ,Vi ,3) :SOUND246 1: 
NEXT @:GOTO 248 


entire screen; this is why C1$ is only 31 
characters long. 

The POKE in Line 360 puts the same 
information into that block of screen 
RAM without scrolling the image. By 
changing the STRINGS and POKE values, 
you can create a border using any 
available graphics or alphanumeric 
character with equal ease. Variables will 


236 FOR G=17025:RESETCH2 V2) SOU 
ND206 1 :SET(H2,V2,4) :SOUND246 1: 
NEXT @ 

248 FOR Q@=1701080:NEXT @ 

208 CLS3:G0SUB 346:]F A=1 THEN P 
RINT@173-LEN(L$)/2,L$° WINS!" ssL 
=L+1 ELSE PRINT#173-LENCRS)/2 R$ 
" WINS!" s sR=R+! 

266 FOR G=1T01500:NEXT @ 

270 PRINT@298 "TOTAL WINS:"s sPRI 
NT@365-LEN(L$)/2,L$°="Ls sPRINT@4 
29-LEN(CR$)/2,R$"="R; 

286 FOR G=1701568:NEXT @ 

298 PRINT#@42,"PLAY AGAIN?" ; :SOUN 
0246 ,! 

308 AS=INKEYS:1F AS="" THEN 388 

316 1F AS="N° THEN PRINT@I1,"<< 

BYE >>"s3:SOUND190,3:FOR G1 10 2 
686 :NEXT @:END 

328 IF A$<{) "Y° THEN 306 

338 GOTO 38 

346 PRINTQ@ ,Ci$; 

358 FOR@=31 TO 479 STEP32:PRINT? 
Q,€2$5 NEXT @ 

366 PRINT#486 ,C1$s sPOKE1535, 199 

378 RETURN 

388 ‘#*TITLE SCREEN 

398 CLS8:AS="" sV=76 :CIS=STRINGS< 
31,159) :C28=STRING$(2 159) 

406 GOSUB 346 

410 FOR @1 10 9 

428 FOR E=1 TO 20:READ A:AS=AS+C 
HR$(A) :NEXT E 

430 PRINTA AS; :A$="" sVEV+32 

448 NEXT Q 

450 PRINT@425, "ROBERT €. RICE"s: 
GOTOS66 

468 DATA 133,146,146 136,133,138 
128,138,128, 134,137,128,133,128 
139,136,133, 146,148,136 

470 DATA 133,131,131 138,133,133 
» 130,138, 133,131,131 138,133,131 
5 136,128,133,131 138,128 

488 DATA-128,128 128, 138,133,128 
437,138,133 ,128,128,138,133,128 
137,128 ,133,128,128,128 

498 DATA 132,146,148 136,132,128 
128,136,192, 128,128 136,132,128 
128,136,132, 148,146,136 

388 DATA 128,128,128,128,128,128 
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also work. Try swapping them out to see 
what happens. 

Feel free to “hack” away at this 
program, modifying and improving it to 
your own tastes. If you find some 
techniques here that you like, jot them 
down for ready reference in the fu- 
ture. XO 


128,128, 128,128, 128,128,128, 128 
128,128, 128,128,128, 128 

516 DATA 133,148, 148,138,133, 128 
128,138, 128,134,137, 128,133,148 
140,136,133, 140,148,136 

528 DATA 133,128,128,128,133, 131 
131,138,133, 131,131,138, 133,13! 
131,138,133, 131,138,128 

538 DATA 133,128,128, 138,133,128 
128,138,133, 128,128,138, 128,128 
128,138, 133,128,128, 128 

540 DATA 132,148, 140,136,132, 128 
128,136,132, 128,128, 136,132,140 
140,136,132, 140,140,136 

558 ‘s4SNAKE MUSIC 

540 FOR O=1 TO S@@:NEXT Q:FOR Q= 
1 10 42:READ A,E:SOUNDA,E:NEXT @ 
570 DATA 89,3,108,3,117,4,188,4, 
89,4,89,3,108,3,117,3,147,3, 188, 
3,117,3,89,6 

586 DATA 117,3,133,3,147,3,147,1 
147,1,147,3,153,3,147,3,133,3, 1 
88,3,117,3,133,3,133, 1,133, 1,133 


| 

598 DATA 147,3,133,3,117,3,89,3, 
108,3,117,6,108,6,89,6,89,3, 188, 
3,117,3,147,3,188,3,117,3,89, 18 
608 ’##INTRO 

618 CLS3:GOSUB 34@:FOR G=170500: 

NEXT @ 

628 PRINT@68, "NAME OF PLAYER ON 
LEFT?" s:PRINT@300,""s:LINEINPUT 
L$:SOUND19@ ,2 

638 CLS3:GOSUB 340:FOR G=1 TO 5@ 
:NEXT Q:PRINT248, "NAME OF PLAYER 
ON RIGHT?® ; :PRINT@30@,"" + sLINEI 

NPUT R¢:SOUND19@, 2 

648 CLS3:GOSUB 34@:PRINTA144, "DO 
YOU WANT INSTRUCTIONS?® ; 

658 PRINT2249,"y OR n°; 

660 AS=INKEY$:1F AS="" THEN 668 

ELSE IF AS<)"Y" THEN 738 

676 CLS4:PRINT232," EACH PLAYER 


HAS A SNAKE. TO WIN, YOU NU 
ST KEEP YOURS MOVING WITH 
GUT BUMPING INTO ANY LINES." 
continued on Page 62.....e.0005 
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JOYSTICKS, 








TOUCH PADS 








By William Barden, Jr. 


hate computers. They’re cantan- 
kerous, unreliable and hard to use. Ah, 
but the things you can do with them! 
My latest series of misadventures began 
with a course I’m taking in the Japanese 
language. The written Japanese lan- 
guage uses three types of symbols — 
Hiragana, Katakana and Kanji. Kanji is 


derived from Chinese symbols and uses 
“ideographs” to represent objects. The 
symbol shown in Figure |, for example, 
represents a dog. Hiragana and Kata- 
kana, on the other hand, represent 
phonetic sounds, such as “ga” or “ka” 
as shown in the same figure. 

As usual, I was attempting to use a 
computer to solve a real-world prob- 
lem. Wouldn’t it be neat, I reasoned, if 
I could convert the Japanese symbols to 
Color Computer screen symbols? Then 
I could drill myself on them and use the 
Color Computer as a silicon sensei! 

This goal yielded all kinds of interest- 
ing results I’d like to share. Some of the 
results are good and some are bad. They 
involve joysticks, old and new, touch 
pads, mouse devices and other tech- 
niques. They all fall into an area I call 
“digitizing patterns.” 

The techniques talked about can be 
applied on any Color Computer system, 
whether it’s a 16K cassette-based system 
or a 64K OS-9 system. We'll stick to the 
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DIGITIZING 
THE WORLD 





KA 





basics in this discussion, so as not to 
leave any beginners in the dust. The 
only requirement is that you have 
Extended Color BASIC in a 16K system. 
How to Take the “Joy” 

Out of Joystick 

My first thought in converting the 
Japanese characters to screen patterns 
was to try a joystick in free-hand draw- 
ing. This proved to be a disaster, how- 
ever. For one thing, my joysticks, unlike 
fine wine, have not improved with age. 
A quick check revealed that they did not 
reproduce a smooth pattern on the 
screen. 

I used the program, Joystick Test, 
shown in Listing | to try them out. This 
program uses the JOYSTK command to 
read in joystick values from the ‘X’ 
direction (JOYSTK(@)) and from the ‘Y’ 
direction (JOYSTK(1)), then plots them 
on the screen in high resolution mode. 
(We'll use high resolution mode, PMODE 
4, 1n these examples, assuming that we 
want the maximum resolution, or 
number of points on the screen.) 


The JOYSTK command reads a value 
of zero through 63 representing the 
joystick ‘X’ or ‘Y’ position on the screen. 
Zero 1s the extreme left or top position, 
while 63 is the extreme right or bottom 
position. We multiplied the ‘X’ value by 
four to convert it to zero through 252 
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KANJI CHARACTER 
FOR INU, DOG 


RAINBOW 
[oe ae 


\\ 


HIRAGANA 
CHARACTERS 


GA 


CHI 


KATAKANA 
CHARACTERS 


and the ‘Y’ value by three to convert it 
to zero through 189 to get a display on 
the entire screen, rather than just the 
upper left quadrant. 

To use Listing |, move the joystick 
smoothly in the ‘X’ and ‘Y’ directions. 
Make sure all new points appear in the 
direction the joystick is moving and not 
“behind” the path, as shown in Figure 
2. If points appear behind the path, your 
joystick is bad, or at least not very good 
for digitizing. Make certain also that 
you can get to all corners of the screen. 

If you have a newer “Deluxe” joystick 
(Cat. No. 26-3012), the ‘X’ and ‘Y’ “trim 
tab” controls can be adjusted to center 
the joystick initially. You should also set 
the movement to “free” by the switches 
on the bottom of the joystick. 

When I tried the program of Listing 
1 on my older joysticks (Radio Shack 
Cat. No. 26-3018), I found that opera- 
tion was erratic, with points displayed 
behind the path and abrupt jumps from 
one screen position to a new one an 
eighth of a screen away. I ended up 
throwing both sticks away after they 
expired during an emergency operation 
using contact cleaner. 


A Deluxe Solution 
to the Joystick Problem 


My next step in the quest for Kanji 


was to get a new Deluxe joystick. The 
new one proved excellent in smoothness 
and | had no problem with points 
appearing behind the path. However, it 
verified something I should have known 
all along — a joystick is not a good 
device to use to reproduce a pattern. For 
one thing, it cannot trace a pattern, but 
must be used in a kind of free-hand 
mode to draw the pattern. My best 
attempt at reproducing a simple Kata- 
kana character by joystick is shown in 
Figure 3. 


The Touch Pad Scores 
too many Points! 

While paging through the new Radio 
Shack Computer Catalog, 1 came 
across another solution to my problem. 
What about the Touch Pad (Cat. No. 
26-1185)? 

In case you’re not familiar with the 
Touch Pad, it’s a “Koala Pad” in Tandy 
clothing. Like a joystick, it returns an 
X/Y position, but instead of a stick that 
moves in two directions, you use a 
“stylus” on a tablet. As the stylus 
touches the pad, the proper X/ Y coor- 
dinates are returned. It sounded perfect 


for my needs, as | could simply place a 
small sheet over the pad and trace a 
Japanese character. 

The instruction book for the Touch 
Pad is akin to an operator’s manual for 
a new car — it tells you how to empty 
the ash trays but not how to time the 
engine. I was looking for the “resolu- 
tion” of the pad, the number of individ- 
ual points per inch. “Would it give 
results as good as a joystick?” I asked 
the Computer Center salesman. 

“No problem,” he vowed, putting his 
hand on a Color Computer BASIC man- 
ual as an ersatz bible. 

I hooked up the Touch Pad to my 
Color Computer and was tracing the 
first pattern. As I drew the first line, I 
noticed a duplicate set of points some- 
what displaced on the screen, as shown 
in Figure 4. “Must be a bad pad,” I 
mused as | boxed it up again and drove 
back to the Computer Center. 

After trying a second Touch Pad, | 
was convinced the problem was in the 
design of the pad. Thumbing through 
some reviews of the Touch Pad in my 
magazine collection and a brief conver- 
sation with another computer writer 


Figure 2: Joystick Testing 


Figure 3: Katakana Characting 
Using Joystick 
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JOYSTICK 
MOTION 





Figure 4: Touch Pad and Spurious 


Points SPURIOUS POINTS 
GENERATED AT 
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confirmed my suspicions. The Touch 
Pad can possibly be used to select one 
square out of a matrix of squares, as 
shown in Figure 5, but is simply not a 
good “digitizing” device. Fortunately, 
Radio Shack cheerfully refunds your 
money. 


To Catch a Mouse, Make a Noise 
Like a CoCo 

I looked at an alternative device, the 
Color Computer Mouse (Cat. No. 26- 
3025). This mouse is a “country” mouse, 
unlike the high-fashion “city” mouse 
from Bellevue for the Tandy 1000. The 
1000 mouse requires a Digi-Mouse 
Controller board that costs as much as 
the mouse itself ($99.95). The CoCo 
mouse, however, is a steal at $49.95. 

I plugged the mouse into the joystick 
port. I might add here that the mouse 
is really just another form of a joystick; 
it returns values of zero through 63 like 
the joystick and can be read the same 
way with the JOYSTK commands. I put 
a “head” on the mouse and used it to 
follow the lines of the Japanese charac- 
ter. The results are shown in Figure 6. 
They are not bad, but still not as good 
as I was looking for. 







an Area 


COLOR COMPUTER SCREEN 


Figure 6: Katakana Character Using 
a “Mouse” 
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Figure 5: Touch Pad Use in Selecting 


Figure 7: Using a “Line” Program to 
Fill in Points 


Problems with Joysticks 

At this point, I realized I had rushed 
into a solution before thinking the 
problem through. I asked myself, “Are 
joysticks good to use for digitized 
patterns and shapes? Or are there better 
ways?” 

One of the problems with the joy- 
stick, Touch Pad or mouse on the Color 
Computer is that the best resolution is 
only 64 by 64 points on the screen. As 
we'd like 256 points horizontally by 192 
points vertically, basic joystick opera- 
tion leaves something missing, namely 
three points in between each joystick 
point! We can “pad out” those points by 
drawing line segments, but the results 
are still not the best. (See Listing 2, 
Joystick Line Tracer, for a program to 
fill in the missing points and Figure 7 
for the results.) 

An alternative is to use the three 
devices on only one screen quadrant at 
a time, as shown in Listing 3, Joystick 
Quadrant, and Figure 8. Each press of 
the space bar switches to the next screen 
quadrant. Holding down the firebutton 
on the joystick or mouse inhibits writing 
on the screen so the screen position can 
be changed. 

Another problem with a joystick-type 
device is that it’s virtually impossible to 
produce a pattern without “garbage” 
points that must be cleaned up, as 
shown in Figure 9. What’s really needed 
is a “pattern editor.” 


Hardware Solutions to Digitization 

One possible solution to the digitiza- 
tion problem is a piece of equipment 
from Colorware, Inc., known as CoCo 
Max. This product circumvents the low 
resolution capability of the joystick 
input by using its own joystick electron- 
ics. A total of 256 points instead of 64 
points can be read in from a standard 
joystick or mouse to match the the 
maximum screen resolution. 

In addition to the increased joystick 
resolution, CoCo Max contains a com- 
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plete graphics package for higher screen 
resolution. It allows shapes and pat- 
terns to be drawn and manipulated in 
methods very similar to the MaclIn- 


| tosh’s MacPaint program. (To be hon- 


est, I have not tried the product but it 
looks very interesting.) 

A second hardware solution to the 
digitizing problem is a better resolution 
graphics tablet. Radio Shack has one 
with the GT-2000 Graphics Tablet, and 
it allows up to 200 pixels per inch. 
However, its cost of $599.95 is most 
likely prohibitive to the typical Color 
Computer user. 

Another possible hardware solution 
is a digitizing television device. These 
are available from RAINBOW advertis- 
ers, such as The MicroWorks — their 


DS-69 Video Digitizer is $149.95. Video 
digitizers take a television image from 
a black-and-white camera or VCR and 
convert the television picture into pat- 
terns for display on the Color Computer 
screen. Again, this solution involves 
quite a bit of cash outlay when a tele- 
vision camera and other options are 
added in. Also, the resulting digitized 
picture takes a good deal of memory or 
disk space. 

Along the same lines, Forrest Mims 
III, of Radio Shack Engineer’s Note- 
book fame, did some experiments using 
a photocell device that digitized images 
from paper put into a “plotter.” The 
same technique can be used by attach- 
ing the device to the print head of a 
Color Computer printer. The print head 


Figure 8: Quadrant Program Operation 
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Figure 9: “Garbage” Points on Screen 
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of the printer is moved a character 
position at a time (or less, if the graphics 
mode is used) under program control. 
For each new character position, the 
output of the photocell is converted into 
a black or white level, which is read by 
the Color Computer from the joystick 
port. 

This scheme is not new, but is partic- 
ularly attractive for the Color Compu- 
ter because of the built-in analog-to- 
digital converter logic of the joystick 
port. For those who are interested, see 
Forrest Mims’ Computer Projects 
(McGraw Hill, 1985). | 
A Software Solution to Digitization 

All along we've been considering only 
“hardware” solutions to the problem of 
digitizing data. There’s a whole set of 
software solutions as well, ranging from 
using PSETs and DRAW commands to 
large applications programs from a 
variety of vendors. There are a large 
number of graphics drawing programs 
that allow you to create and edit pat- 
terns and shapes on the screen. 

The solution to my problem is not the 
most sophisticated, but it does work 
fairly well. It offers full resolution of 256 
points horizontally by 192 points verti- 
cally. It is fairly quick and allows editing 
of the data: It works well for the prob- 
lem I was interested in, and should work 
for similar types of problems you might 


have in digitizing data. I call it Digitize; 
the program is shown in Listing 4. It 
works on any Extended BASIC CoCo 
with at least 16K of memory. 

Digitize uses cursor positioning keys 
to move a graphics cursor around the 
screen, as shown in Figure 10. As the 
cursor is moved, it draws a line. The 
cursor can also be moved without 
drawing a line by “toggling” a pen up/ 
pen down condition. 

Many times you’d like to draw a 
broader line than just one pixel width, 
so the size of the line can be increased 
by selecting a larger “penpoint.” The 
size of the penpoint is shown on the 
screen by a circle on the screen bottom. 
If the circle is filled in, the pen is down; 
if the circle is blank, the pen is up. 
Changing the penpoint size enables you 
to fill in gaps that have not been digi- 
tized. 

Once the pattern or picture is digi- 
tized, you can save the screen to a 
cassette or disk file by pressing ‘S’. The 
graphics screen is then replaced by a 
text screen display so you can name the 
file to be used. Pressing the ‘R’ key at 
any time reads in a previous file so 
further editing can be done. As the 
screen files are simply dumps of the 
graphics screens, the files created in 


your own BASIC programs can be used 
for further processing. 


Figure 10: Cursor. Positioning and Option Keys 
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Listing 1: JSTKTEST 


168 *RAAREAARAAR EASA ASRS SAEAAASTS 
118 “* JOYSTICK TEST ROUTINE 
128 ’# USE WITH RIGHT JOYSTICK # 
138 7 ARARHAAAA LAA AAA SARA RAR ARAAE 
140 SCREEN 1,8 

15@ PMODE 4,1 

168 PCLS 

178 X=JOYSTK(8) #4 
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188 Y=JOYSTK(1)#3 


198 PSET (X,Y) 
208 GOTO 178 


Listing 2: JSTKLINE 
Ui Mess ricer etc ctt testis eters sy 
‘116 “2 JOYSTICK LINE TRACER 3 
128 ’# FILLS IN LINES BETWEEN # 
138 ’+ POINTS. HIT ANY KEY TO 3 
140 ’ CLEAR SCREEN. % 


Meh Marittircciicciiictiiceri ce: me 


“Australian RAINBOW 


Digitize allows you to easily do dig- 
itizations of simple shapes, and while 
admittedly is not a full-fledged graphics 
program, it is short, easy to use and 
foolproof. I’ve used Digitize to digitize 
Japanese characters (see Figure 11) and 
other patterns, shapes and drawings, 
and use the following approach for 
rapid entry: Using a copier service, 
make a transparency of the pattern to 
be reproduced. Tape this transparency 
to the television screen and use the 
cursor controls to trace the pattern. 

Alternatively, you can simply tape a 
piece of plastic wrap to the screen and 
use a grease pencil to draw the pattern 
to be digitized upon the plastic wrap. 
Digitize works much faster than con- 
structing elaborate sequences of DRAW 
commands to produce patterns and 
shapes. 

In my quest to reproduce Kanji and 
Katakana patterns I have gone through 
several approaches and learned that 
computers can’t do everything. Some 
human intervention is necessary unless 
you're willing*to lay out hundreds of 
dollars for television digitization sys- 
tems or digitizing tablets, and even then 


the results would probably not be as 


expected. 

I really do hate computers, but I’ve 
learned to live with my Color Compu- 
ter, and Digitize is another concession 
on my part for using the power of the 
Color Computer to solve a perplexing 


real-world problem. 


Figure 11: Digitize Sample 





“168 SCREEN 1,8 
178 PMODE 4,1! 
188 PCLS 
198 XX=JOYSTK(8) 
208 YY=JOYSTK(1) 
218 AS=INKEY$:1F A$<)"" THEN PCLS 
228 X=JOYSTK(B): Y=dOYSTKE1) 
238 LINE (XX#4, YY#3)-(X#4,¥23) , 
PSET: XX=X: YY=Y 
248 B0TO 218 
——-——Faeraany 1586. 


February 1986. 


Listing 3: JSTKQUAD 


[QQ *HHAAAAAAAAAAAAAKAAAAAAAAAAE 
118 “# JOYSTICK QUADRANT ROU- + 
128 ’% TINE. PRESS SPACE BAR TOs 
130“ MOVE TO NEXT QUADRANT. 
148 ’* PRESS CLEAR TO CLEAR 
158 ’# SCREEN. PRESS JOYSTICK 
168 ’* "FIRE" BUTTON TO NOVE 
178 7 WITHOUT DRAWING LINE. + 
180 “# USE WITH RIGHT JOYSTICK # 
19GB “AAAAAAAAAARAALARAAAAASAATTS 
280 SCREEN 1,0 
218 PNODE 4,1 
228 PCLS 
238 QUAD=6 
240 XB=0: YB=0 
258 XX=JOYSTK(A): YY=JOYSTK(1) 
2460 AS=INKEY$ 
278 IF AS=CHRS(12) 
THEN PCLS: GOTO 338 
288 IF AS<)" © THEN 338 
298 QUAD=QUAD+1 
386 IF QUAD=4 THEN QUAD=6 
310 IF QUAD=@ OR QUAD=2 
THEN XB=8 ELSE XB=128 
928 IF QUAD=@ OR QUAD=1 
THEN YB=@ ELSE YB=96 
930 X=JOYSTK(O): Y=dOYSTK(1) 
340 IF (PEEK(QHFF68) AND 1)=6 
THEN 368 
350 IF (PEEK(AHFF8@) AND 1)=1 
THEN LINE(XX#24XB , YY#1 .5#YB) 
~(X#24XB, Y#1 .5#YB) ,PSET 
368 XX=X: YY=Y 
378 GOTO 268 


er | 





Listing 4: DIGITIZE 


[GQ * RARRHKAAAAAAL ALAA AL ARAARANE 
118 “DIGITIZE PROGRAM. DIGITIZES 
128 “BY NOVING SCREEN TRACE UN- 
138 “DER TRANSPARENT OVERLAY. 
140 ’ ISNOVE UP; O=MOVE UP,RGHT; 
158’ KeNOVE RIGHT: <=NOVE DUN, 
168 ’ RIGHT; M&MOVE DOWN:N=NOVE 
178’ DOWN, LEFT: J=MOVE LEFT; 
188’ UEMOVE UP, LEFT; S=SAVE; 
190 ’ REREAD: 1=DECREASE LINE 


288 * SIZE; 2=INCREASE LINE 

216 ’ SIZE: S=TOGBLE CURSOR OFF 

228 ’ AND ON. 

23B 7 HXEAAEEA AAA AAA AAARAATALELAS 

248 CLS 

238 SCREEN 1,6 

268 PMODE 4,1 

276 PCLS 

288 RADIUS=6 

298 PEN=! 

368 X=128 

316 Y=96 

328 GOSUB 386 

338 GOSUB 868 

346 GOSUB 456 

338 GOTO 336 | 

368 iti tty 

378 ‘SUBROUTINE TO DRAW LEGEND 

388 LINE (6 ,165)-(38,191), 
PRESET , BF 

396 IF RADIUS=@ AND PRE! 

THEN PSET(15,188) 

406 IF RADIUS(>@ AND PRES 
THEN CIRCLE (15,188) RADIUS: 
GOTO 428 

418 IF RADIUS(>6 AND PEN=1 
THEN CIRCLE (15,188) ,RADIUS: 
PAINT (15,188) 

428 RETURN 

GOO 7 HRSRLEARAAAASA KATE AAA LEATE 

44@ ‘SUBROUTINE TO READ KEY. 

456 AS=INKEY$: 1F AS="° THEN 456 

468 IF A$<{>"1" THEN 488 
ELSE Y=Y-i 

478 GOTO 778 

480 1F A$<)"0" THEN 518 | 
ELSE Y=Y-i: IF Y<@ THEN Y=8 

498 X=X¢1: IF X©256 THEN X=255° 

388 GOTO 778 

51@ JF A$<>"K" THEN 538 
ELSE X=X+1: IF X=256 
THEN X=255: GOTO 778 

928 GOTO 778 

338 IF AS<>"<* AND AS<>",° 
THEN 568 ELSE X=X+1: 

JF X=256 THEN X=255 

348 Y=¥tis IF Y=192 THEN Y=19! 

308 GOTO 776 

068 IF A$<{>°"M" THEN 588 
ELSE Y=Y41: IF Y=192 
THEN Y=191 

3768 GOTO 776 

388 IF A$<{>"N" THEN 618 
ELSE Y=¥ti: IF Y=i9i 
THEN Y=191 

598 X=X-1: IF X=-1 THEN X=6 

688 GOTO 778 | 

618 IF A$¢>°U° THEN 638 ELSE 
X=X-1: IF X=-1 THEN X=0 


626 GOTO 778 


638 IF AS<)"U" THEN 668 ELSE 
XeX-1: IF X=-4 THEN X= 

640 Y=Y-1: IF Y=-1 THEN Y=1 

658 GOTO 778 

668 IF AS<)*1" THEN 688: 
=Y-1: IF Y=-1 THEN Y=6 


678 GOTO 778 
680 IF A$Q)*2" THEN 788 


ELSE RADIUS=RADIUS#1: 
IF RADIUS)16 THEN RADIUS=16 
698 GOSUB 386: GOTO 778 


700 IF A$<)°1" THEN 728 


ELSE RADIUS=RADIUS-1: 
TF RADIUS=-1 THEN RADIUS=6 
718 GOSUB 386: GOTO 778 


720. IF A%<)°3* THEN 748 


ELSE IF PEN=@ THEN PEN=1 
ELSE PEN=8 


730 GOSUB 388: GOTO 778 
740 1F &$<)*S* THEN 756 


ELSE GOSUB 858: GOTO 776 
796 IF AS{>°R® THEN 768 
ELSE GOSUB 958 
768 IF A$<)°C" THEN 778 ELSE 248 


770 RETURN 


788 /ZSELAAAAALAARALAFAARAAAATERE 
799 “SUBROUTINE TO DRAW POINT 
OR CIRCLE 
ge@ IF RADIUS<)@ THEN CIRCLE 
(X,Y) RADIUS PEN: GOTO 828 


B18 IF RADIUS=@ THEN IF PEN 


THEN PRESET(X,Y) ELSE 
PSET(X,Y) 


826. RETURN 
BOO 7 HRRRREAEEEAEREEAEEE EE ERELE 
848 “SUBROUTINE TO SAVE GRAPHICS 


876 INPUT "SAVE FILE NAME": A$ 


G86 IF AS="" THEN 910 


“998 SAVEN AS ,GHOEGO AH25FF, 


&HOEGE 
988 ‘USE "CSAVEN AS ,&H8488, 
&HIDFF® FOR CASSETTE SYSTEM 


918 SCREEN 1,6 
.920- RETURN 
98 4 SRSAERASAAAESSSEARLALABERTSE 


940 “SUBROUTINE TO READ GRAPHICS 


SCREEN 


958 SCREEN 6,0 

968 CLS 

970 INPUT "READ FILE NAME"; A$ 
986 IF AS="" THEN 1616 

998 LOADM A$ 

41008 “USE "575 CLOADM A$" FOR 


CASSETTE SYSTEMS 


1018 SCREEN 1,8 
1020" RETURN 
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Your CoCo Is Awake Tonight 
Part 2 


This month, we'll finish up the alarm circuit 
by building a sophisticated local alarm system 


By Dennis H. Weide 











ast month, I showed you a simple alarm 
| Rex that allowed scanning an alarm 

system in your house or apartment while 
you're away from home. This month, we'll use the 
same basic circuits to build a sophisticated local 
alarm system. This one has a hardware clock, an 
outside alarm bell and continuous alarm scanning. 
All alarms and activity are logged on disk. It’s 
turned on and off at the front door via a key switch 
and has an LED indicator to show on/off status. 


The Program . 

Listing | is the local alarm program. Six com- 
mands allow you to control all functions of the 
program. A menu is displayed when the program 
is first started and anytime the ENTER key is 
pressed. The prompt has been changed to “GO >” 
for easier recognition. Let’s take a look at the 
commands. 


Set Time 

The correct time can be set with the SET TIME 
command. The clock should never vary more than 
a minute a day if built correctly. However, each 
time the alarm program is loaded and run, the clock 
must be set in software. Follow the prompts to set 
the time. 


Alarm Log 

All activity on the system is recorded on disk in 
the alarm log. The log is a direct access file, so the 
amount of disk space required is kept to a min- 
imum. When the ALARM LOG command is 


(Dennis Weide is an avid computer hobbyist who 
teaches programming on the CoCo and IBM PC. 
He has written for all the major CoCo magazines, 
including many programs in RAINBOW. Dennis 
lives in Albuquerque, N.M.) 


entered, the program accesses the disk and prints 
all information in the log. All alarms (attempted 
break-ins) are printed on the screen along with the 
date and time the alarm is detected. 


Print Log 

The PRINT LOG command prints a hard copy 
that gives a permanent record of the log. You can 
use this record in the event of a break-in. It’s a good 
idea to clear the log each time the program is 
started. 


Clear Log 

The CLEAR LOG command is used to erase the 
alarm log when you’re sure it’s no longer needed. 
The file is erased and a new one is created with the 
entry log cleared and the date and time. 


Bell Off 

The bell on the outside of the house alerts the 
neighborhood of an attempted break-in. When an 
alarm is tripped, the bell rings until shut off by the 
BELL OFF command. This command releases the 
cassette motor relay (the MOTOR OF F command) and 
silences the bell. 


Sign Off 

When you wish to stop program execution, use 
the SIGN OFF command. This stops the program 
and suspends the alarm system. If you wish to start 
the system again, type CONT and ENTER. The 
program jumps to start and you can set up the 
system again. 


Command Entry 

All commands are entered as a single number 
only. Enter the number next to the command to 
execute it. The program scans the clock and alarm 
circuits continuously, except when reading or 
writing to disk or executing a command. Now let’s 
look at the hardware we'll be using. 
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Table 1 
Typical Circuit Values for Clock Circuit 


R2 Value 
4.3M 
2.151M 
1.56M 


Formulas 


Time 1=.693*(R1+R2)*Cl 
Time 2=.693*R2*Cl1 
Time 1+time 2 in seconds 


C2 Value 
10 uF 
10 uF 
10 uF 


Sec/ Cycle R1 Value 
60 68K 
30 27K 
15 56K 


High output 
Low output 
Total cycle time = 


Radio Shack No. 
276-1723 
271-1345 


Table 2 
Clock Circuit Parts List 
Item — Price 
555 IC Timer $1.19 ea. 
68K ohm Resistor .39 pkg/5 
4.3M ohm Resistor (see text) 
10 Mfd. Elect. Capacitor 59 ea. 
.01 Mfd. Capacitor 59 pkg/2 
220 ohm Resistor (2 ea.) .39 pkg/5 
TLR-107 Hi-Brite LED 89 pkg/2 
Table 3 
Alarm Circuit Parts List 
Item Price 
N/C Window Switches $ 3.49 ea. 
N/O Tamper Switch 1.39 ea. 
Door Lock Switch 9.95 ea. 
N/C 120 ft: Foil 5.99 roll 
N/C Foil Connectors 2.59 pkg/6 
Joystick Plugs (2 ea.) 1.19 ea. 
Cassette Plug (1 ea.) 1.49 ea. 
33K ohm Resistors (3 ea.) .39 pkg/5 
68K ohm Resistors (3 ea.) .39 pkg/5 
100K ohm Resistors (3 ea.) 39 pkg/5 
220 ohm Resistor (1 ea.) .39 pkg/5 
TLR-107 4i-Brite LED 89 pkg/2 
Hook-up and Alarm Wire N/A 
Alarm Bell 19.95 ea. 
Table 4 
Power Supply Parts List 
Item Price 
12.6V Mini Transformer $3.59 ea. 
1000 uF Elect. Capacitor 1.59 ea. 
.01 uF Epoxy Capacitor 59 pkg/2 
Full Wave Bridge Rectifier .89 ea. 
7805 Fixed IC Regulator 1.59 ea. 
Sub-Mini SPST Toggle Switch 1.59 ea. 
Fuse Holder .99 ea. 
Fuses .69 pkg/3 
Project Box for Power 
Supply and Alarm Board 3.99 ea. 
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272-1013 
272-1065 
271-1313 
276-033 





Radio Shack No. 


49-495 
49-528 
49-511 
49-502 
49-504 
274-020 
274-003 
271-1341. 
271-1345 
271-1347 
271-1313 
276-033 
N/A. 
49-498 


Radio Shack No. 


273-1365 
272-1019 
272-1065 
276-1161 
276-1770 
275-612 

270-367 

270-1271 


270-252 


‘The Clock Circuit 


Schematic 1 shows the hardware 
clock circuit that provides the date and 
time for all disk writes. A 555 timer is 
used to generate a square wave signal 
with a cycle time of one minute. This 
cycle time requires the computer to scan 
the clock circuit only once every 30 
seconds to be accurate. To assure accu- 
racy of the clock, use the component 
values shown on the schematic. Every- 
time the clock output goes high, clock 
memory is incremented. The output of 
the clock is connected to Pin 1 of the 
right joystick (JOYSTK(@)). Clock 
ground is connected to Pin 3 (ground) 
of the same joystick. 

Power for the clock is provided by the 
external +5 volt supply (Schematic 3), 


which is also connected to the joystick 


ground. The LED and two 220 ohm 


‘resistors (R3 and R4) provide a visual 
‘indication when the clock output goes 


high (LED lighted). Use this indicator 


and resistor R2 when adjusting the 
‘timing of the circuit. 


Resistors Rl and R2 and capacitor 
C2 are used to determine the cycle time. 
The values shown generate a square 
wave that is almost perfect. Table | 
shows the cycle time and the resistor 
and capacitor values required to achieve 
them. R1 is astandard value resistor but 
R2 is not. I used four 1M ohm resistors 
in series with a 500K ohm pot to allow 
the cycle time to be adjustable. 

For those who require perfection, you 
can add a 7473 chip (J-K Flip-Flop) to 
the output to get a 50 percent duty cycle 
(a perfect square wave). The output 
from the flip-flop will be one-half the 
clock cycle time. Therefore, you must 
build the timer circuit to generate a 
clock signal with a cycle time of 30 
seconds. Table 1 shows the formulas to 
use to determine cycle time for the clock 
output. Table 2 is a parts list for the 


i clock circuit. 


The Clock Program 

A machine language subroutine (List- 
ing 2) is used to read the hardware 
clock. The program scans the clock on 
JOYSTK(@) and the alarms on JOY 
STK(1) to JOYSTK(3). The clock is 
totally controlled by the machine lan- 
guage program while the alarm values 


j are passed to BASIC for computing the 


alarm conditions. 

Lines 2100 to 4300 of the BASIC 
program (Listing 1) contain the ma- 
chine language programs in BASIC DATA 
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statements. There is no need to enter the 
assembly language listing. 

If you want to use the clock and 
program in other applications, execute 
Hex address 7100 to initialize the clock 
and Hex address 7129 every time you 
wish to scan the clock. You can build 
your own timer for any cycle time 
desired. Just remember that the clock 
circuit must be scanned at least twice 
each cycle to be accurate. 


Local Alarm Loops 

The local alarm loops are shown in 
Schematic 2. They’re similar to the basic 
circuit shown last month. Switches S1 
and S2 represent the on/ off switch and 
the tamper switch. They work the same 
way as the remote alarm system except 
relays are not needed since the program 
scans the alarm circuit continuously. 
When en alarm is detected, the condi- 


° . ° ° . 
tion 1S registered in memory so it’s not | 


necessary to hold afi alarm relay oper- 
ated. 

Switches S3 through S6 are the win- 
dow and door switches. As shown last 
month, they are a series of switches — 


one for each door and window on the | 


specified side of the house. They should 
be closed when the door or window is 
closed. The schematic also shows the 
joystick assignments for the four sides 
of the house. Table 3 is a parts list for 
the local alarm. 


External Power Supply 

Last month, I showed the schematic 
of an external power supply used to 
prevent loading of the CoCo power 


supply. I have included the schematic | 
again for reference (Schematic 3) and a | 


parts list (Table 4). Be sure to ground 


the power supply to Pin 3 of either 


joystick port. Failure to do so could end 


in disaster. For an explanation of the | 


power supply, see last month’s edition 
of RAINBOW (Page 58). 


The Alarm Bell Circuit 

This alarm has another feature not 
used in last month’s project. An alarm 
bell is located outside the house in an 
inaccessible place. When an alarm is 
activated, the bell rings. 

Connection to the computer is made 
via the cassette jack on the back of the 
computer. This is the cassette motor 
relay, which is operated and released by 
the MOTOR ON and MOTOR OFF com- 
mands. The BELL OFF command 
silences the bell. 

The circuit is simple. I use a car 
battery (60 amp-hours), which can ring 


must charge the battery at regular 
intervals, but be careful not to over- 
charge it. Those experienced in elec- 
tronics can build a small charging 
circuit to provide a continuous charge. 
Place the battery in a plastic battery box 
and coat all connections with clear Karo 
syrup to prevent corrosion. The syrup 


will harden and, when necessary, can be 
removed with warm water. It’s an excel- 
lent anti-corrosive. 

I used two standard Radio Shack 
alarm bells that draw 4 amp each at 12 
volts. Locate your bells where they are 
inaccessible so they can’t be tampered 
with. 


Clock Circuit 


+5V EXT SUPPLY 


555 TIMER 


RIGHT 
JOYSTICK 
PIN 1 


RIGHT 
JOYSTICK 
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Schematic 1 


RIGHT JOYSTICK 
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+5V EXT SUP 
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Local Alarm Loops 
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The Heat Is On 

Those who are worried about the 
CoCo overheating can purchase one of 
several fan attachments to keep it cool. 
However, if you leave the computer on 
for several hours with no ill effects, you 
probably don’t have anything to worry 
about. I’ve had two CoCos and several 
other computers, and they all ran for 
over 16 hours a day for weeks on end. 
As long as the computer is properly 
ventilated, overheating shouldn’t be a 
problem. 
A Few More Notes 

This alarm system was built first and 
later modified to provide the one shown 
last month. No matter which one you 
choose, the feeling of security you'll get 
is well worth the effort. 
Alarm Bell Circuit A parts list is included for each phase 
of the project (Tables 1 through 4). You 
may be able to scavenge many of the 
parts or order them from parts houses 
for less. You can also wait until Radio 
Shack puts the parts that are needed on 
BATTERY sale. That’s what I did and I saved a 

| bundle. 

Anyone having questions or com- 
ments can write to me at 14201 Mar- 
quette N.E., Albuquerque, NM 87123. 
Please enclose an SASE if you wish a 
Schematic 4 reply. 


ID & IL 
WILSONS 


+5V External Supply 


Schematic 3 


CASSETTE JK 
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EPROM SERVICE 
HHHHNRKKKKKAAAKAHAAHKKKAKAAKAHKRKKKHAARAKKE 
CUSTOM EPROM PROGRAMMING SERVICE 
HRKHHKMNKKKKAKKH KKK KKAAKKKKAKAKRKEE 
EPROMS SUPPLIED BY ME PROGRAMMED 
FOR $35.06 ELSE IF SUPPLIED BY 
THE CUSTOMER $26.66. PROGRAMS ON 
TAPE ONLY PLEASE, SORRY NO DISKS 


















SOFTWARE - Hundreds of 


7 ——— titles 
HARDWARE -Drives - 
/Printers 


/ SERVICE ~ Upgrades 





ONLY ORIGINAL OR PUBLIC DOMAIN 
PROGRAMS ACCEPTED. DEFINATELY NO 
COMMERCIAL PROGRAMS WITHOUT 
PROOF OF OWNERSHIP. 

PRINTED LISTINGS PROGRAMED FOR 
$5.66 PER 1/K. EXTRA 

SPECIAL PURPOSE EPROMS PROGRAMED 
FROM PRINTED HEX LISTINGS. 

BASIC PROGRAMS COMPILED %5.86 
EXTRA. 

QUANTITY DISCOUNTS APPLY FOR 5 
‘OR MORE EPROMS. 

PLEASE ALLOW 3 WEEKS FOR RETURN 


DELIVERY. 
PO BOX 149, CARDWELL.GLD 4816. 


») Bankeard 
welcomehere 
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Ideal For Use With 
Your Tandy Color 
Computer 2 


shes hoe Fre 5 pe eee sr ah ne 


An affordable way to expand your computer system 
and print reports, notes, letters, diagrams or graphs! 
This compact dot-matrix unit prints 30 characters 


Low Profile Keyboard 


ante ee 
PEGE SOM 
xo) Vee 
SESE 


@ Improved Performance 


Reg 59.95 


39° 


Save 
$20 


Upgrade your outdated grey pushbutton-style Color 
Computer keyboard with this new typewriter-style | 
one! Easier to use, greater efficiency. 26-3016 








COLOR COMPUTER 


Save *60 


Reg 159.95 


oO a 
fs 5 
of, 
fy 
Be Z 
4 
op 
f rp y os 
f 
Ch: iy aes Me 
‘ 
ne, ERE, Wy ; 
i“ 


And Alphanumerics 











@® Repeat Function 
For Easy Graphics 


@ Whisper Quiet 


per second on 10.47 cm wide thermal paper, and in- 
cludes an elongated mode for expanded type. Easy 
tO USE. 26-1261 


Sound/Speech Program Pak 


Add sound and voices to your BASIC programs 
using PEEK and POKE commands. It even lets you 
add text to the speech in your programs. 26-3144 













TANDY 1000 ae 


eave200 | 


Reg 1999.00 


251799) 


The IBM-compatible Tandy 1000 buisness 
computer and Deskmate application soft- 
ware have been packed at an unbeatable 
price! Tandy 1000 has 128K RAM, and easily 
expands to 640K. Unique Deskmate soft- 
ware provides you with six most-wanted pro- 
grams: calander, text, worksheet, filer, 
telecom and mail. Tandy 1000 can also ac- ae 
cess the world’s leading range of MS-DOS Ce 

PrograMsS 25-1000 *!BM TM of International Business Machines SS SSAA S SSSSssSSs 


VM-2 Monochrome Monitor. 263211 ....... 349.95 Monitor Sold Separately 


The Superior Tandy 1000HD 
- NEW! 


+3999 


Here’s our new high- 
capacity business 
computer at a very 
competitive price! 
With 256K RAM anda 
built-in 10 megabyte 
hard disk drive, it has 
10 million characters 
of fast-access stor- 
age for advanced 
business use! 25-1001 











Color Monitor 


















® High- 
Resolution 


@ Easy To 
Install 


- 
-, 
4 
7, 
7 
4 
7 
7. 
a 
2 
a 
2, 
a 
+ 
4, 


Enjoy a bright, clear full-color screen for your 
business diagrams, programs or graphics! Easily 
connects to your Tandy 1000 computer. 26-3212 




















WE SERVICE WHAT WE SELL! 


Available from 
350 Stores Australiawide 


including Tandy Computer Centres 


"independent Tandy Dealers may not be participating 
in this ad or have every item advertised. 
Prices may also vary at individual Dealer Stores 
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Listing 1: LCLALARM 


1008 “ LOCAL BURGLAR ALARN 
1168’ BY DENNIS H. WEIDE 
1208’ 14281 MARQUETTE N.E. 
1308 ’ ALBUQUERQUE NM 87123 
1400“ = ¢C) 1985 

1508 / 

1408 CLS:DEFUSRI=4H71 29 : DEFUSR2= 
&H7168 

1780 CLEAR 2800 ,&H7000 

1808 ’ : 

1908“ CLOCK AND CALENDAR 
2080 ’ 

2108 FOR X=&H7188 TO &H7247 

2288 READ A:POKE X,A 

2388 NEXT X 

2480 DATA 14,142,4,8,134,48, 147, 
160,16,140,4,31,47,246,134,47,18 
3,4,2,183,4,5,134,58,183,4,29,13 
4,32,16,142,4,8,147,148,16,140,4 
2588 DATA 26,47,248, 189,169,222, 
182,1,98,177,112,255,39,2,32,1,5 
7,183,112, 255, 129,48, 46,1 ,57,182 
4,31 ,76,129,58,39,4,183,4,31 57 
2688 DATA 134,48,183,4,31 ,182,4, 
30, 76,129,54,39,4,189,4,30,57,13 
4,48,183,4,38,182,4,28,76,129,52 
3921129558, 394 188,4,28,57,1 
2780 DATA 48,183,4,28,182,4,27,7 
6,183,4,27,57,246,4,27, 193,58, 39 
,2,32,226,16,142,4,27,142,48,48, 
191,4,27,191,4,38,182,4,4, 76,183 
2880 DATA 4,4,190,4,8,140,49,58, 
39,2,32,28,16,198,4,3,16,140,51, 
50,39 ,2,32,16,142,48,49,191 4,8, 
191,4,3,182,4,7,76,183,4,7, 198 ,4 
2980 DATA 3,140,50,57,39,22,148, 
51 ,49,39,12, 148,51 ,58,39,2, 32,13 
,189,114,43,32,8, 199,114, 14,32,3 
189,113, 247,182, 4,4,129,58,39, 1 
3000 DATA 57,134,48,183,4,4,182, 
4,3,76,183,4,3,57,16,198,4,8,16, 
140,48,50,39,1,57,142,48,49,191, 
4,3,134,51,183,4,1,57,16,198,4,8 
3100 DATA 16,148,48,52,39,19,16, 
140 ,48,54,39,13,16,148,48,57,39, 
7,16,148,49,49,39,1,57,142,48,49 
191 ,4,3,182,4,1,76,183,4,1,198 
3208 DATA 4,6,148,48,58,39,1,57, 
142,49,48,191,4,8,57 
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3380 EXEC &H7100 

3488 FOR X=kH428 TO &H43F 

9500 READ A:POKE X,A 

3686 NEXT X 

9780 DATA 32,32,32,32,32,32,32,3 
2,32,32,2,21,18,7,12,1,18, 32,11 
2,1,18,13,32,32,32,32,32,32,32,3 
2,32 

9880 FOR X=&H7008 TO &H7049 

3988 READ A:POKE X,A 

4080 NEXT X 

4160 EXEC &H7006 

4200 DATA 190,1,104,175,140,12,4 
8 ,146,12,191,1,164, 134,57, 167,14 
@,239,57,85,85,2,52, 23,13, 111,38 
16,158,136, 148,5,224,45,9,129,1 
3 


4380 DATA 39,11,148,5,255,39,6,5 

3,23, 110,157,255, 225,166, 148,224 
198,32, 61 ,195,4,8,48,148,9,52, ! 

§,31,1,52,22,126,163,78,18,137,3 
2,225 

44a0 ’ 

4588’ READ ALARM CONFIG 

4408 ’ 

4786 FOR X=4 10 9 

4800 READ AM$(X) 

4988 NEXT X 

5008 DATA NORTH SIDE ALARM, SOUTH 
SIDE ALARM ,NORTH/SOUTH ALARM 

5188 DATA EAST SIDE ALARN,WEST S 
IDE ALAR ,EAST/WEST ALARM 

5288 DIM DR$(48) 

5388 GOTO 9680 

5400 ’ 

5508’ 

5400 

5786’ CLOCK UPDATE 

500 ” 

5988 D=USRI (8) 

6008 ’ 

6100’ START OF ALARM SCAN 

6200" 

6380 FOR X=1 10 3 

6480 ACK=PEEK(&HISAIX) 

6580 NEXT X:¥=4 


6688 ’ 

6788 ’ CONPUTE ALARM VALUE 
6888 ” 

6906 IF AC1)>39 AND F=@ THEN RE 
TURN , 


7068 IF AC1)>39 AND F3=1 THEN AR 
$="ALARN DEACTIVATED" :GOSUB 1498 
8:F8 

7168 IF AC1)>9 AND AC1)<15 AND F 
36 THEN ARS="ALARM ACTIVATED’ :6 
OSUB 14980:F31 

7208 IF AC1)=6 AND Ti=8 THEN AR$ 
="TAMPER ALARM® :GOSUB 14986 :Ti=1 
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sARS="BELL ON’ :GOSUB 14906 :MOTOR 
ON 

7388 JF ACI)>9 AND ACI)<1S AND T 
1=1 THEN ARS="TAMPER CLEAR® :G0SU 
B 14966:T1=6 

7406 FOR X=2 10 3 

7588 IF ACX)=6 THEN AFCY)=6:AFCY 


~ +1)=0:AF(Y+2)=0:FF=FF+1 :G0T0 798 


8 

7668 IF ACX)>9 AND ACX)<(35 AND A 

F(¥)=@ THEN ARS=AM$(Y) :GOSUB 149 
OG :AFCY)=1:F1=1:60T0 7968 

7708 IF ACX)>26 AND ACX)<(28 AND 

AF(Y+1)=8 THEN ARS=ANS(Y+1) :60SU 

B 14900 sAFCY+1)=1:Fi=1:G0TO 7968 
7886 IF A(X)>28 AND AF(Y#2)=6 TH 

EN ARS=AMS$(Y+2) :GOSUB 14908:AF(Y 
#2)=1sF i=] 

7996 Y=Y+3:NEXT X 

8666 IF Fi=1 AND F2=6 THEN MOTOR 
ON: F2=1:ARS="BELL ON":GO0SUB 149 
66 

8108 IF Fl=! AND FF=2 THEN AR$=" 

ALARM CLEARED": F2=6::G60SUB 14966 
:F1=8 

8266 FF=6 

8308 RETURN 

8408 ” | 
8508 ’ PASSWORD AND COMMANDS 
8686 ’ 

8708 ” 

8886 ’ SET CLOCK 

8988 ’ 

9668 D=USR2(8) :PRINT 2488 

9108 INPUT"ENTER TIME (HHMM)® A$ 
9266 JNPUT°ENTER DATE <(MMDDYY>": 
BS 

9388 POKE &H4iF VAL CMIDS$(A$ 4,1) 
+48 

9468 POKEGH4IE , VAL (MIDS (A$ ,3,1)) 
+48 

9568 POKEGH4IC ,VAL(MIDS(A$,2,1)) 
+48 

9686 POKE&H41B , VALCMIDS(A$ 1,1) 
+48 

9708 POKE&HB488 VAL (MIDS<B$ 1,1) 
+48 

9886 POKEGHE461 ,VAL(MIDS(BS 2,1) 
)+48 

9988 POKE&HO483 VAL (M1D$(B$ 3,1) 
)+48 

18688 POKE&HO464 ,VAL(MIDS(BS 4, ] 
))+48 

18188 POKE&HG466 VAL (MIDS<BS$ 5,1 
))+48 

18286 POKE&HO467 ,VAL(M]D$(BS 6,1 
))+48 

{8366 PRINT 

18486 ARS="SET CLOCK" :G0SUB 1498 


February 1986. 


] 
16508 GOTO 12088 


16688 ’ 
Weete ; : D MODULE Listing 2: CALCLOCK 
106988 CM$="" :PRINTTAB( 18) °PROGRA 
H HENU* slip * «BY DENNIS H. WEIDE 
11888 PRINTTAB(18)*------------ . 99129 * 14291 MARQUETTE N.E. 
11166 PRINT 99139 * ALBUQUERQUE,NM 87123 
11268 PRINTTABC16)°1. SET TIME" n1gg a9159 * Ca s7199 
11386 PRINTTAB(I6)"2. ALARM LOG® 7199 198E 9499 99169 START  LDY #59499 START OF SCREEN 
11488 PRINTTAB(18)°3. PRINT LO6" 7194 86 39 99179 ZEROS LDA #539 LOAD SCREEN 
11586 PRINTTABC16)"4. CLEAR LOG’ 7196 A7 Ag 99189 STA »X+ WITH ZEROS 
11688 PRINTTAB(10)°5. BELL OFF" ee “ane ae 59209 ain eee END OF SCREEN? 
11786 PRINTTABCIB)"S. SIGN OFF® ge 86 2F 99219 LDA #$2F PRINT SLASHES 
11866 PRINT :PRINT 7119 B7 9492 99229 STA $9492 
11968 PRINT"GO >° 7113 B7 = =9495 99239 STA ee INT COLON 
_ 7116 86 3A 99249 LDA #53A PR 
12608 CNS=INKEYS 7118 B7 g41D 99259 STA $941D , 
12168 GOSUB 5966 711B 86 2 99269 LDA -—«-#$29~——SC LOAD BLANK SPACE 
12288 IF CM$="" THEN 12088 711D 198E 9498 99279 LDY #59498 START OF SCREEN BLANKS 
= 7121 A? Ag 99289 BLANKS STA ,Y+ BLANK OUT SCREEN 
‘sare we THEN PRINT 7123 198C 941A 99299 CMPY  #S941A 
. 7127 2F F8 99399 BLE BLANKS 
12486 CM=VAL(CM$):1F CM=3 THEN P 7129 BD A9DE 99319 JOYSTK JSR $A9DE READ JOYSTKS 
iat Hay BL IEF 99339 CHPA © $79FF WITH LAST READING 
712F Bl 79FF PA 
12088 IF CH)8 AND CM<7 THEN 1338 7132 27 g2 99349 BEQ RET RETURN IF EQUAL 
a 7134 29 gl 99359 BRA STORE IF NOT EQUAL 
12666 (t4$="" 7136 39 99369 RET RTS 
12788 PRINT’INVALID COMMAND" 7137 B7 79FF 99379 STORE STA S7Q9FF STORE NEW 
} 713A 81 28 99389 CMPA #$28 JOYSTK(#) VALUE 
12866 GOTO 12606 713C 2E. gl 99399 BGT LOAD BRANCH IF HIGH 
12980 ’ 713E 39 99499 . RTS 
, 713F B6 §41F 99419 LOAD LDA $941F INCREMENT MINUTE 
13866 ; START PROGR HERE 7142 4C 99429 INCA AND CHECK IF 
13106 , USE "ON CM GOSUB 7143 81 3A 99439 CMPA #$3A GREATER THAN 9 
13266 7145 27 94 99449 BEQ MINTEN BRANCH IF GREATER 
13386 ON CM GOSUB 9000 16000 148 7147 B7 §41F 99459 STA $941F STORE MIN ON SCREEN 
66 28168 19488 17988 714A 39 PPE RTS 
| 714B 86 639 99479 MINTEN LDA #539 STORE ZERO IN 
13486 IF Fo=1 THEN F5-8:G0T0 169 714D B7 = 941 F 99489 STA $941F MINUTE LOCATION 
86 7159 B6 Q41E 99499 LDA $941E GET MINUTES 
13508 GOTO 12089 7153 4C 99599 INCA TENS AND INCREMENT 
13680 ” 7154 81 36 99519 CMPA #$36 SIXTY MINUTES? 
; 7156 27 94 99529 BEQ HRUNIT BRANCH IF YES 
13788 READ AND WRITE ALARN 7158 B7 Q41E 99539 STA $941E 
§ 10 DISK 715B 39 99549 RTS 
13808 ” 715C 86 6.39 99559 HRUNIT LDA #$39 . 
13988 715E B7 §41E 99569 STA $941E SET MINUTES TO ZERO 
14868 ’ igs ac 59589 INGA ue INCREMENT HOURS TENS 
7164 4¢ 
14168 “ OPEN BUF ai 7165 81 34 99599 CMPA #834  HRUNIT=4? 
14280 ” 7167 27. 15 9699 BEQ CHECK BRANCH IF YES 
: 7169 81 3A 9619 RETURN CMPA #$3A  HRUNIT>9? 
14386 OPEN"D® , 81 ,"ALARN.DAT® , 46 716B 27 4 59629 BEQ § HRTEN BRANCH IF YES 
14406 FIELD#! ,18 AS AL$,22 AS TI 716D B7 ¢41C 99639 STA $941C PRINT NEW HRUNIT 
$ 7179 39 99649 RTS 
7171 86 6.39 99659 HRTEN LDA #539 SET HRUNIT 
laste RETURN 7173 B7 =©g41C 99669 STA $941C TO ZERO 
’ 7176 B6 9418 gg679 LDA $941B ADD ONE 
14788 ’ WRITE ALARMS TO DISK 7179 4c 99689 INCA TO HRTEN 
14988 / 717A B7 941B pg6og sta $941B PRINT NEW HRTEN 
14988 PRINT :PRINTTAB( 6) *###%#ALA 717E F6 9418 99719 CHECK LDB $941B HOURS=24? 
RM ENTRY##22%° :G0SUB 18386 :PRINT 7181 Cl 32 99729 CMPB 3s #$32 | 
‘ 7183 27 92 99739 BEQ SETDAY BRANCH IF YES 
TAB(4) CL¢:PRINTTAB(8) ARS 7185 29 (E2 ag74g BRA RETURN 
15866 "ET Asears 7187 198E 941B 99759 SETDAY LDY #$941B START OF TIME 
13186 LSET AL 718B 8E 3939 99769 LDX #$3939 SET TIME 


13206 LSET TIS=CL$ 


February 1986. 


Australian RAINBOW 


PAGE 35 





15900 PUT# ,LOFC1)41 
15468 CLOSE! 

15580 PRINT:PRINT"GO )* 
15488 RETURN 
15788 / 
15608 ’ 

K 

15988 / 
16068 GOSUB 14380 

16168 PRINTAPN, STRINGS(32,°-") 
16280 FOR X=1 TO LOF(1) 

16388 GETAI,X 

16408 FOR 22=1 TO S@@:NEXT 22 
16588 PRINTSPN 

16688 PRINTSPN, TAB( 6) °#38%481.06 
ENTRY x2232° 

16768 D=USRI<8) 

16886 PRINTHPN,TAB(4) TI$ 

16988 D=USRI<@) 

17868 PRINTBPN, TAB( (32-LENCAL$)) 
/2) als 

17168 D=USRI<8) 

17288 NEXT X 

17380 CLOSE! 

17498 PRINT:PRINT*GO >* 

17568 RETURN 
17608 ’ 
17708 ’ 
17808 ’ 
17988 STOP:RETURN 
18008 ” 
19168 / 
19288 ’ 
18388 CL$="" 
18408 FOR X=&H4@ TO &H40F 
19568 CLS=CL$#CHRS(PEEK(X)) 
18480 NEXT X 

18768 FOR X=AH4iB 70 &H4iF 
18808 CL$=CL$+CHR$(PEEK(X)) 
18988 NEXT X 

190880 RETURN 
19168 / 
19280 ’ 
19388 / 
19480 MOTOR OFF 
19580 ARS="BELL OFF* 
19688 GOSUB 14988 
19788 RETURN 
19888 ’ 
19980 / 
20088 ’ 
20186 PRINT:PRINT°ARE YOU SURE ( 
YN)" 

20280 IPS=INKEY$:GOSUB 5986 
20300 IF IPS="* THEN 20280 

20406 IF 1P$<)°Y THEN PRINT:PRI 
NT°GO >® :RETURN 

20586 KILL"ALARN,DAT® :ARS="LOG C 
LEARED® :GOTO 14980 


READ ALARNS FROM DIS 


END P6M 


READ TIME 


SILENCE ALARM 


CLEAR LO6 
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718E BF 9418 
7191 BF Q4lE 
7194 B6 g494 
7197 4C 

7198 B7 9494 
719B BE g4gg 
J19E 8C 3132 
71Al 27. g2 
7143 29 :1¢ 
71A5 19BE 9493 
71A9 198C 3332 
71AD 27. 2 
71AF 29 19 
71B1 8E 3931 
71B4 BF g4g99 
71B7 BF 9493 
71BA B6 9497 
71BD 4C 

71BE B? 9497 
71C1 BE 9493 
7104 8C =. 3239 
71¢7 27. 16 
7169 8C =. 3331 
71cc 27. gc 
71CE 8C 3332 
71D1 27. = g2 
71D3 29 «gD 
71D5 BD 7228 
71D8 29 «= g8 
71DA BD 7295 
71DD 29 «sg 
71DF BD 71F7 
71E2 B6 9494 
71E5 81 3A 
71E7 27. gl 
71E9 39 

71EA 86 39 
71EC B? 9494 
J1EF B6 9493 
71F2 4C 

71F3 B7 9493 
71F6 39 


71FF 27. gl 
7291 39 

7292 BE 3931 
7295 BF 9493 
7298 86 33 
7294 B7 9491 
729D 39 


7212 198C 3934 
7216 27. 13 
7218 198C 3936 
721C 27. gD 
721E 198C 3939 
7222 27 7 
7224 198C 3131 
7228 27. @1 
722A 39 

722B 8E 3931 
722E BF 9493 
7231 B6 86 g4gl 
7234 4C 

7235 B7 g4gl 
7238 BE g4gg 
723B 8C 393A 
723E 27. gi 
7249 39 

7241 8E 3139 
7244 BF g4gg 
7247 39 


99999 TOTAL ERRORS 


91199 
g1119 
91129 
91139 
g114g 
91159 
g116¢g 
91179 
g118g 
91199 
g1299 
g1219 
g1229 
g1239 
g1249 
91259 
g1269 
g1279 
91289 
g1299 
91399 
91319 
91329 
91339 
91349 
91359 
91369 
91379 
91389 
g1399 
91499 
g14ig 
91429 
91439 
gl4ag 
g14sg 
g146g 
91479 
g14sg 
g149g 
91599 


ENDYR 


NEWYR 


DAY29 


LSTDAY 


THIRTY 


MOTEST 
COMP 


DAYTEN 


FEBCHK 


FEBSET 


MSHORT 


RESET 


MONTEN 
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$9418 
S941E 
$494 


$9494 
$9499 
#$3132 
ENDYR 
DAY29 
$9493 
#$ 3332 
NEWYR 
DAY29 
#$3931 
$9499 
$9493 
$9497 


$9497 
$9493 
#53239 
MOTEST 
#$3331 
THIRTY 
#$3332 
LSTDAY 
COMP 
RESET 
COMP 
MSHORT 
COMP 
FEBCHK 
$9494 
#S3A 
DAYTEN 


#$39 
$9494 
$9493 


$9493 


$9499 
#$3932 
FEBSET 


#53931 
$9493 
#$33 
$9491 


Sp4gg 
#$3934 
RESET 
#$3936 
RESET 
#$3939 
RESET 
#$3131 
RESET 


#$ 3931 
$9493 
$9491 


$9491 
$9499 
#$393A 
MONTEN 


#$3139 
$9499 


TO 99:99 


GET MONTH 
IS MONTH=127 
BRANCH IF YES 


GET DAY 
ID DAY=32? 
BRANCH IF YES 


SET NEW 
DATE 91/91 


BRANCH IF YES 
IS DAY=31?7 
BRANCH IF YES 
IS DAY=32? 


BRANCH IF EQUAL 


IS DAY UNIT>9? 


BRANCH IF YES 


SET DAY UNIT 
TO ZERO 


IS MONTH 
EQUAL TO 92? 
BRANCH IF YES 


SET DAY 
TO ZERO 
SET MONTH 
TO 93 


IS MONTH 
EQUAL TO 94? 
BRANCH IF YES 
MONTH 96? 
BRANCH IF YES 
MONTH 99? 
BRANCH IF YES 
MONTH 117 
BRANCH IF YES 


SET DAY 
EQUAL TO ZERO 
ADD ONE 


GET MONTH 
IS MONTH>9? 
BRANCH IF YES 


SET MONTH 
TO TEN 
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A Beginner’s 


ee 
TURN OF THE SCREW 


Hardware Course 


Part l 


By Tony DiStefano 


article on how a computer works, starting from 


99 


Ts being the Beginners issue, I will start a multi-part 


“simple theory” to “how to build one of my projects. 
This month, we will begin with basic concepts: what is a 
bit, what does digital mean, what is analog, how does it 
differ from digital, and a look at a different numbering 
system. 

The dictionary meaning of analog is “proportionate.” 
When speaking, you can speak loud or low. Light can be 
dark or bright, or any shade in-between. Radio waves and 
TV pictures are all said to be analog signals. These are 
examples of analog wave shapes — continuously changing. 
When we talk about a digital system, there are no shades 
or continuous motion. There are only two states in a digital 
signal: ON or OFF. There is no in-between. This is the core 
of computing. Everything your computer does is accom- 
plished using these two states. OK, let’s expand on these 
states. 

First, there is ON. It is also known as “high” (Hi or ‘H’), 
“plus,” “one” (or ‘1’), “mark,” “voltage” and many others. 
The two terms I use most often are Hi and ‘1’; these are 
the terms I will use throughout these articles. In most 
microcomputers, the operating voltage for the hardware is 
five volts. Virtually all the mircocomputer and support 
chips work with five volts. It is pretty much a norm. Given 
this, a Hi measures about five volts on a voltage meter, but 


4.5 volts is also considered Hi. There are limits to how low 
the voltage can be before it is considered invalid. In fact, 
any voltage greater than two volts is considered to be a logic 
level Hi or ‘1’. 

Next is the OFF state. It, too, has many names: “low” 
(Lo or ‘L’), “minus,” “zero” (or ‘0’), “space” and “ground,” 
just to name a few. To keep consistent, I will use Lo and 
‘0’ to mean OFF. A low state is considered to have zero volts 
and when measured with a voltage meter, nothing registers. 
Under certain conditions, a small voltage can be present. 
Any voltage below .8 volts is considered to be a logic level 
‘0’. Any voltage greater than .8 volts or less than two volts 
is not a valid logic state and results are, at least, unpredict- 
able. 

Now we know about the highs and lows of digital 
operation. The next step is a “bit.” A bit is one piece of logic 
information. It has, as we now know, two states, either Lo 
or Hi. It’s also known as a binary digit, binary meaning two. 
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The two states are: 


State 0 = 0 (Low) 
State | = 1 (High) 


But, just two pieces of information is not very much to work 
with. If we use two bits side by side, and considered every 
combination of 0’s and 1’s, there are four separate 
combinations. 


State 0 = 00 
State I = 01 
State 2 = 10 
State 3 = 11 


If you have three bits side by side, there are eight different 
combinations. 


State 0 = 000 
State | = 001 
State 2 = 010 
State 3 = 011 
State 4 = 100 
State 5 = 101 
State 6 = 110 
State 7 = 111 


Can you see a pattern start to develop? Every time one 
more bit is added, you double the amount of different 
combinations possible. This is known as Base 2 or binary 
numbering system. Most of us are more familiar with Base 
10 or decimal numbering system. In short, Base 10 numbers, 
unlike Base 2 numbers, have 10 different combinations per 
digit. 


State 0 = 0 
State 1 = | 
State 2 = 2 
State 3 = 3 
State 4 = 4 
State 5 = 5 
State 6 = 6 
State 7 = 7 
State 8 =8 
State 9 =9 
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Tam sure you recognize.these numbers. Once the top of the 
number ladder is reached, you add another digit to the left 
of it. Each number ‘added raises the value of that digit in 
the number by a factor of 10. 


3 2 i121 #°:5 


nae 1g E 2 1g E 1 TF 
or or or a 


| | | 

3900 + 298 + 168 ++ #5 ~ ¥# 3215 
When large numbers are to be represented, there are more 

digits. Each new digit added means adding another power 

of 10. Numbers ranging in the millions require only seven 

digits in Base 10 numbers, but require many digits in Base 

2 since every added digit is only to the power of 2. 


i V4 1 1 


2-(2 Eb 4) 253 2E2 2£E1 {2 £ G-2 
or or or OF or 
| 
16 + @ + 4 + 2 + B = 22 


You c&n see that a Base 2 number adds up to a lot less than 
Base 10. There is yet a better-suited numbering system for 
computers, but first let’s look at a bit more (ha, ha). 

The Color Computer (all versions) has an eight-bit CPU. 
That means all data, program code and characters are 
stored in eight-bit values. These groups are better known 
as bytes. A byte can hold any value from 00000000 (Base 
2) to 11111111, or in decimal, from zero to 255. If you 
convert 1111111 to decimal, it works out to 255. Each byte 
in the CoCo is one memory location. A byte can hold one 
ASCII character, one piece of data or one machine language 
code. We'll look more at memory later on. 

In the computer environment there is another numbering 
system. It is most used and is called the hexadecimal 
numbering system, or Hex for short. The Hex system, as 
the name implies, is a Base 16 number. This means there 
must be 16 symbols before the carry over to the next digit. 
In Hex, the symbols are 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, 
C, D, E and F Just as the next digit after ‘3’ is ‘4’ (3+1), 
the next digit after ‘9’ (9+1) is ‘A’. Remember that A, B, C, 
D, E and F are digits, not letters, in the hexadecimal system. 
The following table exemplifies the different numbering 
systems described. 


Decimal Hex Binary 
0 0 0000 
l ] 0001 
2 2 0010 
3 3 0011 
4 4 0100 
5 5 0101 
6 6 0110 
7 7 0111 
8 8 1000 
9 9 1001 
10 A 1010 
1] B 1011 
12 C 1100 
13 D 1101 
14 E 1110 
15 F 1111 
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As you can see from the table, the Hex numbering system 
is the most efficient because of its highest base number. The 
decimal system takes two characters to the one character 
needed by Hex; binary takes four characters. Since the 
CoCo has an eight-bit bus (a memory byte), you can 
represent a memory location with eight bits (11111111) or 
three decimal digits (255) or a two-digit Hex number ($FF). 
From now on we will use all three numbering systems, which 
ever happens to be the best for the occasion. When using 
Hex, however, I will put the character ‘$’ in front of it. Some 
like to put an ‘h’ at the rear of the number — both are 
correct, I just prefer the dollar sign. 

Understanding the Hex and binary numbering systems 
and what they stand for in acomputer is the base from where 
your knowledge of the CoCo will grow. I will not cover 
adding and subtracting or conversion from one base to 
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is HEX$, pronounced “Hex string.” This command transfers 
a normal decimal value into a string variable in hexadecimal 
format. The syntax for this command is HEX$(X) where ‘X’ 
can be a direct value or any numeric expression. As an 
example, to get the Hex equivalent of the decimal value 207, 
type PRINT HEX$(207) and ENTER. This prints CF and is 
the Hex equivalent of 207. A very handy command to have. 

On the other hand, how would we change a Hex value 
into a decimal value? Extended BASIC comes to the rescue 
again, for it has another function that allows entry of Hex 
values, the &H sign. Anytime you need.to enter a value in 
Hex, use the &H in front of the value. For instance, if you 
have a line that sets the value of ‘X’ to the Hex value FF, 
you can calculate $FF to a decimal value or you can enter 
it as 10@ X = &HFF. Another use of the function &H is to 
convert a Hex number to decimal. Since all numbers printed 
are done in decimal, to convert a Hex number to decimal 
all you have to do is PRINT &HX and ENTER, where ‘X” is 
any Hex number and the result is printed in decimal on the 
screen. If you are to substitute the letter ‘O’ instead of ‘H’, 
all values will be in octal, or Base 8. 

es 


I got a letter from a reader just this week. He pointed 
out a problem with “Turn of the Screw” in the November 
1984 issue. There is mention of a switch in the text, but no 
such switch existed in the diagram. Figure 1 shows where 
this switch goes. 


CoCo Pin #4 





Figure 1 
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Presenting The Star 
Of The Show — 


Screen Alternatives 


By Bill Bernico 


ired of the same ol’ beginnings to your 
: programs? You know — CLS:PRINT ®@ 
100, “MY PROGRAM”. Well, now you can 
spruce up the title page and discover new ways 
to clear your screen instead of using CLS. 
Upon running Screen, you are presented with 
a menu containing six choices. Selection numbers 
1,3, 4 and 5 show alternative ways to present your 
title page, and numbers 2 and 6 demonstrate new 
ways to clear the screen. Each selection is in itself 
a stand-alone program. That is, you can take lines 


300-510, for example, and adapt them to your 
own program. These lines make up selection 
number 1. Selection number 2 can be “pulled out” 
of the main program by using lines 530-590, and 
sO On. 

I’m always working on new ways to do old 
tasks, but these are my six favorites so far. Feel 
free to use them or improve them in any way you 
like. Make your program stand out and give it 
the recognition it deserves. 





The listing: SCREEN 


1@ “SCREEN PRESENTATIONS 

20 “BY BILL BERNICO 

30 “788 MICHIGAN AVE. 

40 “SHEBOYGAN, WI 5308! 

58 (414) 459-7358 

66’ 

78 PMODE 4,1:PCLS5:SCREEN 1,1:C0 
LOR 0,1 

8A DRAW" B48, 28S2:U1 2H4L 2864D20F 
26D4G4L1 2H4U4L8D1 2F4R32E4U1 2H24U 
SEARGFARG" :PAINT(39, 27) ,@,6:SOUN 
D 108,2 

98 DRAW"BN76é , 2852: U1 2H4L 2864D57F 
4R2GE4U1 6L8D8G4L1 2H4U40E4R1 2F404 
RB" :PAINT(74,45) 8 ,@:SOUND 1282 
100 DRAW"BN92, 2052:D65R1 2U25F25R 
1 SH25R1 2EBUZ4HBL 48° : DRAW" BNIB, 26 
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sD26R26E4U1 2H4L 20" sPAINT( 93,21), 
8,6:SOUND 146,2 

118 DRAW'BM132, 2052 :Dé65R32U12L14 
U1 4R8U1 41 8U1 4Ri 6U1 2L32° sPAINT (13 
3,21) ,8,8:SOUND 168 ,2 

128 DRAW" BMI 462,26 ;D69R32Ui 211 6U! 
4R8U1 4L8U14R1 6U12L32" sPAINT(163, 
21) ,8,@:SOUND 188 ,2 

138 DRAW" BM192 , 2852 :D65R16U36F36 
RI4US5L16D39H3BL 18° sPAINT(193, 21 
),@,8:SOUND 286,2 

148 DRAW BM28 ,96S2 :D48R25E7U1 4H? 
L25BR40F23BE23646BE446BR46BU38D66 
R25EPUI PHFL Z5BRZ5E FU SHPL 25BR64D 
S66BUS6BR3I4D66R43BU66BR34D66R43BL 
21 9BD2OD66R25E SU SPL 25BR25ESUIP 
H9L25BR795L25D646R25BU33BL 1811 SBR4 
BBDS3SUSSRZ25F 901 BGFL 25F S3BRZGU66F 
46020U66BR26046 

158 DRAW BROSBUSSBDBUBL 33D466R33U 
SBDSBRZ26U66R33D66L33 

168 FOR X=1 TO i5@6:NEXT X 

170 CS=CHRS¢ 128) :VS=CHRS (159) :BS 
=CHRS$(175) sNS=CHRS( 191) sMB=CHRS< 
207) sKS=CHR$ (239) sLS=CHRE¢ 255) 
188 CLS6:PRINT#33, "choose" ;C$:"f 
rom" sC$; "these" :C$3"design”;($3° 
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ideas" s($; 

196 PRINT#131,V$5"<1> BORDER FLA 
SH "sV$; 

208 PRINT#164,B$;"<2) DISAPPEARI 
NG °;:B$: 

218 PRINT@197 ,N$3"<3) FLASH ORAN 
GE ° NS; 

228 PRINT@230 ,M$3"<4> COLOR TITL 
ES "3M$: 

238 PRINT@263,L$3°<{5> REPLACENEN 
TS "sL$3 

248 PRINTA296,K$;"<6) ROLLING BA 
CK "3K$: 

258 PRINTA32Z9 MS ; "404 nHHEEEES 
£22" MSs 

268 PRINT#362,V$s"choose 1-4 OR 
eND® :V$: 

270 AS=INKEY$:1F AS="E°THEN CLS: 
END 

288 A=VAL(AS):0N A GOTO 366,538, 
616 ,838 , 1668 1328 

298 GOTO 278 

366 CLSB:PRINT STRINGS(32,281); 
318 FOR X=63 TO 516 STEP 32 

326 PRINT @X ,CHR$( 281) NEXT X 
338 PRINT#486 , STRINGS( 31,281); 
346 POKE 1535, 261 
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358 FOR X=448 TO 32 STEP-32 

368 PRINT@X ,CHRS( 281); sNEXT X 
‘378 FOR Y=1 TO 3 

388 POKE 359,126:SOUND 191,2 
398 PRINT274,"bill*;C$s"bernico® 


 ) 

466 PRINT214@, “presents”; 

416 PRINTA199 "another" :C$;°anaz 
ingly’; 

426 PRINT@268,"simple’: 

438 PRINT@359 , "SCREEN® sC$;"PRESE 
NTATION’s 

446 PRINT2428, "PROGRAM? ; 

456 FOR X=1 TO 356:NEXT X 

4466 POKE 359,57:SCREEN 8,1 

476 SOUND 159,2 

486 FOR X=1 TO 350:NEXT X 

498 NEXT 

388 POKE 357,126:CLS 

918 FOR X=1 TO 368:NEXT X 

326 GOTO 178 

936 CLS:PRINT9106,°TRY THIS METH 


OD FOR CLEARING THE 

SCREEN. IT’S CERTAINL 
Y OUT OF THE ORDINA 
RY AND IT HOLDS YOUR 
ATTEN- TION BETTER T 
HAN A PLAIN OLD ’CL 
5’ CON- MAND. 


346 PRINT2392,°HIT ANY K 

308 EXEC 44539 

368 FOR Y=166 TO 462 STEP 2:PRIN 
TAY ,CHRS¢ 143): 

978 PRINT@Y ,CHR$(32) 5 :NEXT Y 
366 FOR O-1 TO 786:NEXT 0 

998 FOR P=181 TO 464 STEP 2:PRIN 
TaP ,CHRS< 143) 3 sNEXT P 

686 GOTO 176 

618 FOR Y=1 T0 3 

628 FOR X=1 10 1868:NEXT X:CLS6 
638 SOUND 148,1 

646 PRINT@3, STRINGS(7 255): 

698 PRINT269 , STRING$(9,255) ; 

668 PRINT#135, STRINGS(6, 255) ; 
678 PRINT#281 ,STRINGS(4, 255): 
686 PRINT#267 ,STRING$(12, 255); 
698 PRINT2333 , STRINGS< 2,255) 
766 PRINTS399 ,STRINGS<( 4,255) sC$; 
STRINGS$(7, 255) ; 

716 FORX=1 TO 588 :NEXT X:CLS8 
726 SOUND 191,1 

736 PRINT@3,"another®: 

740 PRINT269 “amazingly”; 

798 PRINT#135,°simple’s 

768 PRINT@2@1 ,"screen”: 

770 PRINT2267 , presentation’: 
788 PRINT@333, "by": 

796 PRINT2399 “bill's sC$s"bernic 
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868 NEXT Y 

818 FOR X=1 TO S@6:NEXT X 

828 GOTO 178 

838 CLS8 

848 FOR X=3 TO 13:SET(X,4,1) sNEX 
TX 

856 FOR X=4 TO 11:SET¢8,X,1)sSET 
(7X1) SETC18 ,X 2) sSETCL9 X,2)s 
SET(28,X,3) sSET(29 ,X 3) sSET(38 ,X 
, 4) SETC39 ,X 4) sSET(58 ,X,5) sSETC 
31 ,X,0) sNEXT X 

868 FOR X=24 TO 33:SET<X,4,3):NE 
XT X 

878 FOR X=37 TO 45:SET(X, 11,4) :N 
EXT X 

886 FOR X=51 TO 57:SET(X,11,5):S 
ET(X 4,5) NEXT X 

898 FOR X=51 TO S5:SET(X,8,5) sNE 
XT X 

908 FOR X=16 TO 23:SET¢12,X,5):5 
ET(13,X,5) sSET(48,X,2) :SETC49 xX, 
2) NEXT X 

918 FOR X=14 TO 17:SET(X,16,5):S 
ET(X 28,5) sNEXT X 

928 FOR X=17 TO 19:SETC18,X,5):S 
ET(19 X53) sNEXT X 

938 FOR X=17 TO 23:SET(24,X,7):S 
ET(25 ,X,7) sSET(38 ,X,7) sSET(31 ,X, 
7) sNEXT X 

948 FOR X=26 TO 29:SET(X,16,7):S 
ET(X, 28,7) sNEXT X 

958 FOR X=17 TO 22:SET(36,X,8):S 
ET(37 .X,8) :NEXT X 

968 FOR X=38 TO 41:SET(X, 16,8): 
ET(X, 23,8) sNEXT X 

978 FOR X=46 TO 43:SET(X, 21,8) :N 
EXT X:SET(42,17,8) sSET¢43,17,8): 
SET( 42, 22,8) :SET(43, 22,8) 

986 FOR X=58 TO S5:SET(X,16,2):5 
ET<X 23,2) NEXT X 

998 FOR X=58 TO S3:SET(X, 28,2) :N 
EXT X 

1668 Y=29:FOR X=1 T0 38 

1018 SET(6,¥,1) sSETC12,Y ,2) sSET¢ 
18,¥,3) :SET(24,Y ,4) sSET(38 ,¥,5): 
SET(36,Y 6) sSET(42,¥,7) sSET(48,Y 
8) sSET(S4,¥,1) sSET(68 ,Y,2) 

1028 EXEC 43345 

1636 RESET(6,¥) sRESET(12,Y) :RESE 
T(18,Y) sRESET(24 ,¥) sRESET(36,Y): 
RESET(36,Y) sRESET(42,Y) sRESET(48 
»Y) sRESET( 34 ,Y) sRESET( 68 ,Y) 

1846 NEXT X 

1056 GOTO 178 

1068 CLS:PRINTO131 , STRINGS<4 C$) 
o© © CTRINGS(2,C$);° °sSTRINGS(6 
,C$)s° "sSTRINGS(4,C8)5° °sSTRIN 
6$(4 C$) 

1670 GOSUB 1318 
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1686 PRINT@131 , "this" sB$;"is" :B$ 
s"design’ sBS; "number" ;B$: "five 
1698 GOSUB 1318 

1168 PRINT2195,STRINGS(3,($);" ° 
sSTRINGS(6,C$) 5° "sSTRINGS(4,C$) 
5° "sSTRINGS(2,C0$)5" "sSTRINGS(4 
,C$) 

1138 GOSUB 1316 

1128 PRINT@195,"the® :8$;"visual® 
sBS"effect’ :BS:*of" BS." this’ :B 
$; 

$138 GOSUB 1318 

1148 PRINT@259 ,STRINGS<7,C$);" ° 
sSTRINGS(2,C$)3" ° sSTRINGS(4 C$) 
s@ 8 sSTRINGS(6 ,C$)s" "sSTRINGS(3 
,C$) 

1158 GOSUB 1310 

1168 PRINT#259 ,“pattern’ :B$;"is* 
sBS;“very" sB$3"unique’ :B$s "for 
1178 GOSUB 1318 

1186 PRINT@323 ,STRINGS(6,C$)s° ° 
sSTRINGS(12,C$)5" "sSTRINGS(4 C$ 
) 

1196 GOSUB 1318 

1288 PRINT@323, "screen" ;B$;"pres 
entation’ sBS;°uses” :BS;3B$: 

1218 GOSUB 1318 

1226 PRINT@99 , STRINGS< 26, B) : 
1238 FOR X=125 TO 388 STEP 32:PR 
INT@X ,B$; sNEXT X 

1246 FOR X=381 TO 354 STEP-1:PRI 
NT@X BS s sNEXT X 

1258 FOR X=354 10 98 STEP-32:PRI 
NT@X BS: NEXT X 

1268 PRINT@163 ,STRINGS(27 ,B$) ; 
1278 PRINT@227 ,STRINGS(27 BS): 
1286 PRINT@291 , STRING$(27 ,B$); 
1296 GOSUB 1316 

1308 GOTO 178 

1316 FOR X=1 10 866:NEXT X:EXEC 
43345 :RETURN 

1328 CLS:PRINT#69,"THIS PROGRAM 


WILL HELP YOU TO SPRUCE 
UP YOUR QUN PROGRANS 
BY GIVING YOU A FLASHY 
SCREEN PRESENTATION 
TO REPLACE THE DULL, DRA 
B, ORDINARY TITLE PAGE. 
1338 PRINT@293,*YOU CAN CHOOSE F 
RON SIX EYE-APPEALING PA 
TTERNS TO BE YOUR TITLE 
PAGE. 
1349 PRINT2421,"PRESS enter TO 
RETURN 70 MENU 


13568 EXEC 44539 

1368 FOR G=475 10 69 STEP -! 
1376 PRINT@ @, CHR$¢32) 

1388 EXEC 43345:NEXT @ 

1396 GOTO 178 
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CoBBS: 


Setting Up Various Files 
To Make The System Operate 


By Richard Duncan 


elcome back! For the past two 
Wet: we have been looking 
at the bulletin board software 
and what makes it tick. This month we 


will use the editors required to set up the 
various files that make CoBBS operate. 


System Control File Editor 

The System Control File Editor 
(SCF/EDD is the first editor to use in 
setting up the system. This editor 
creates a file that tells the system certain 
functions. The editor file is stored on 
disk in an open area of the directory file 
so no additional disk space is used. 
Upon loading and executing the editor, 
you are asked a group of questions. 

1) LOG-ON TYPE? This specifies 
how far you want a new caller to get on 
the system. 


Type 1 — No access unless the user 
has an entry in the user- 
log. 

Type 2 — User may register if not in 
the userlog but will not be 
able to access the main 
system. 

Type 3 — Operates like Type 2. 
User is shown NEW 
USER/ TXT if available. 

Type 4 — User may register if not in 
the userlog and have ac- 
cess to the main board. 


2) MENU TO ENTER IN? This is the 
menu that will be loaded when a user 
gets past logon. This menu number is 
initially set in the user’s log entry when 
first logging on. This may later be 
changed by the user through the Menu 
Control Editor. 

3) NEW USER TIME-OUT? This 
sets the time a new user is allowed to use 
the system. The value may be from zero 


to 255. Time is figured as five minutes 
times the value, so four, for instance, 
would be 20 minutes. 

4) NEW USER PRIVILEGE? Sets 
the privilege level of a new user. May be 
any value from zero to 255. 

5) NEW USER PI FLAGS? Sets any 
flags desired for a new user. Reply with 
the actual set of flags, such as 
“00000000.” Only a ‘0’ and/or ‘1’ is 
allowed. 

6) NEW USER P2 FLAGS? Same as 
P1 flags, except this is for the last eight 
of 16 flags. 

7) CHECK FOR MESSAGES? If 
answered “yes,” the system checks to see 
if there are any messages on the system 
for that user after logging in and before 
loading the main board routine. If 
answered “no,” then this routine is 
skipped and the system goes directly to 
the main board routine after logging in 
the user. 

8) USER PROMPT? Sets the new 
user’s prompting level. Refer to the 
information on the Menu Control Ed- 
itor for the different prompts. 

9) TRACE USER’S OPERATION? 
The tracer option maintains a log of a 
user’s operation while on the system. 
The file to which the information is 
printed is determined by this flag. The 
options are: 

— No trace 
Cassette (reserved) 
Disk drive 
Printer (available if using the 
Pak) 


0 

1 — 
2— 
3 


10) DRIVE FOR HDR/SYS? Spec- 
ify which drive the message header 1s on. 

11) DRIVE FOR MSG/SYS? Spec- 
ify which drive the message text is on. 

12) DRIVE FOR USERL/SYS? 


the 
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Which drive for the userlog. 

13) DRIVE FOR MENU/SYS? 
Drive for the board’s menu file. 

14) DRIVE FOR TRACER/SYS? 
Drive for the system’s trace file if used. 

15) DRIVE FOR REGISTER/SYS? 
Drive for registration file. 

After answering all questions, the 
system shows all the selections. If they 
are correct, the file is saved to the disk’s 
directory. This will be the system disk 
that must be in Drive 0. Any disk used 
for the system in Drive 0 must have a 
control file on it or the program will not 
run. 

To save a file, type YES at the first 
prompt, “Ready to Save?” Insert the 
disk that will be the Drive 0 system disk. 
At the next prompt, “Ready to Save?” 
type Y and ENTER. You now have your 
system parameters for the system. These 
can easily be changed by running SC F/ 
EDI again. 


System Menu File Editor 

The next step is to use the System 
Menu File Editor (SMF/ EDJ) to set up 
the various menus. Note: To use any 
editor other than SCF/EDI you must 
have booted up the system as far as the 
start-up file. Error trap and COTERM 
must be in memory. Also, before run- 
ning any of the editors locally, type 
POKE 4658, before running or the 
system will try to reboot. 

The menu control file contains all the 
information needed to present a user 
with a choice of commands. Each menu 
has a number, and the number may be 
from zero to 255. When a menu is 
printed, the number of that menu ap- 
pears with its name just before the 
various commands. The number of the 
menu appears in asterisks (*). Using this 
editor the system is told not only which 


February 1984. Australian RAINBOW AGE 41 


commands should be available, but | 


what the privilege requirement is and if 
a user flag must be set to see this menu 
or command. ~ 

To be safe, there should always be a 
menu zero, with zero privilege and no 
flags set. This prevents a user from 
having difficulty upon certain system 
errors or errors in setting up the new 
user privileges. 

Upon loading and running the pro- 
gram the following menu appears: 


1) Create a new menu 
2) Edit existing menu 
3) Exit editing 

4) Return to BBS 


1) Create a new menu — Choosing 
this option allows the SysOp to create 
a menu. The system will ask if you desire 
to kill the old menu file. If answered 
“yes,” the complete menu file is deleted 
with all menus. After answering the 
prompt the editor’s menu appears. 

2) Edit existing menu — This func- 
tion allows the SysOp to edit any menu 
in the file. If an improper menu number 
is given, then the first menu reappears. 

3) Exit editing — Exits SMF/EDI 
and goes into BASIC. 

4) Return to BBS — Exits SMF/ 
EDI, loads and runs the main board 
system. 

After passing the first menu the 
SysOp is presented with the editor 
menu. The following menu appears: 


#(menu) (menu name) 
COMMANDS: (number) 

1) ADD A COMMAND 

2) CHANGE A COMMAND. 

3) LIST MENU 

4) ADD/CHANGE BOARD MENU 
5) LIST/EDIT HEADER 

6) DELETE A COMMAND 

7) EXIT AND WRITE 

8) EXIT 


The first step is actually Function 4, but 
we will look at them in the order listed. 

1) ADD A COMMAND — After 
choosing this, the system asks for IN- 
SERT AFTER:. Pressing ‘L’ adds the 
command to the end of the list, or the 
SysOp may specify which command the 
new one will come after. The system 
_asks for the needed information of each 
command. 


TEXT: Enter command text up to 
16 characters 

KEY: Enter key the system looks 

| for to execute the command 

PRIV: Privilege level required to 
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see this command 


Pl: First eight of 16 flags. Enter 
either ‘0’ or ‘1’ only 
P2: Same as Pl, except second 
eight flags 
TYPE: Type of command 
DATA: Optional data required by 


some commands 


2) CHANGE A COMMAND — The 
function allows editing of a command. 
You are asked which command number 
you wish to edit. While the various 
command information is presented, 
pressing ENTER retains the original 
entry while typing new information 
replaces the original. 

3) LIST MENU — Allows the listing 
of each command or the text as it 
appears on the system under full text 
prompting. While looking at the var- 
ious full command listing, use a ‘Q’ to 
exit the listing, or any key to continue 
to the next one. 

4) ADD/CHANGE BOARD 
MENU — Option 4 determines what 
menu number 1s entered and whether it 
is a new one or change menu number 
and retains all commands. The privilege 
level and flags set those values for that 
particular menu. A user must meet or 
exceed these specifications to be able to 
access it. When asked if the board is 
postable, the system sets a flag to tell the 
board program whether or not the 
menu may be listed as one that may 
have a message posted to it in reply or 
as a new message. This prevents the 
possiblilty of a user who has access to 
that menu from posting a message to it 
if there is no read command available 
for the number. 

5) LIST/EDIT HEADER — This 
function lifts the menu header text and 
also allows modification of that text. 

6) DELETE A COMMAND — De- 
letes a command from the list. The 
command is shown and verification 
requested before deleting the command. 

7) EXIT AND WRITE — Exits the 
editor and writes the new or modified 
menu to the menu control file. Returns 
to the first menu. | 

8) EXIT — Exits the editor and 
returns to the first editor menu. No data 
in the menu file is modified. 

Use command #4 first when setting 
up a menu, then use the #1 command 
to add whatever commands you want 
on that menu. Pressing ‘L’ adds the 
command to the end of the list. Deter- 
mine which command you want on each 
menu. After pressing the ADD func- 
tion, you are asked the text to display, 
the key character to look for, privilege, 
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flags to set (if any), the type of com- 
mand and then the optional data, which 
may or may not be needed depending 
on the particular type of command. The 
other commands are for modifying, 
deleting, saving, etc. A program to set 


up a simple menu file automatically is 


available on my BBS. 


Userlog Editor 

‘The System Userlog Editor (SUL/ 
EDD) is used to modify a user’s privilege 
or other pertinent information. Upon 
loading and running the editor the 
following menu appears: 


USERS: (NUMBER) 


<S>EARCH <G>O TO USER # 
<N>EXT <L>AST ENTRY 
<M>ODIFY FIELD <R>EGISTER 
<A>CTIVATE <D>ELETE 
<P>RINT LISTING <B>ACKUP 


<U>SER CLASS 
<H>ARD COPY 


<E>NTER USER 
<Q>UIT 
COMMAND> 


Note: A user’s information must be 
initially printed on the screen before any 
modifications may be made. 

<S>EARCH — Searches for a user 
by string comparison. After pressing the 
‘S’ the system prompts for the test 
string. The test string may be any target 
in the name or from. Use SHIFT-CLEAR 
to separate name and from in text 
string. 

<G>O TO USER # — Jumps to user 
specified. The user number changes 
when the userlog is backed up and there 
are deleted entries. 

<N>EXT — Goes to the next user in 
the log. 

<L>AST ENTRY — Goes to the 
previous user in the log. 

<M>ODIFY FIELD — Used to 
change one of the user listings informa- 
tion. Some listings may not be modi- 
fied. After choosing ‘M’ the system asks 
for field to be modified (see the section 
on field modification). 

<R>EGISTER — Sets the registra- 
tion flag where the user is classified as 
either a New, Probationary or Regis- 
tered user. This has no bearing on the 
operation of the system for that user as 
all those controls are in the command 
and user privilege information, but the 
user may be shown a text file at logon 
that only new users will see. 

<A>CTIVATE — “Undeletes” a user 
from the log if deleted by accident. 

<D>ELETE — Flags a user to be 
deleted from the log the next time a 
backup is performed. 

<P>RINT LISTING — Prints the 


-user’s record on the screen and shows 


all pertinent information in his file. 
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<B>ACKUP — Backup userlog file. 
Copies entries over to the file USERL/ 
BAK. While copying, the system will 
not copy over any entries that are 
flagged to be deleted. The system asks 
if you desire to delete and copy the new 
file over to the system’s userlog file, 
USERL/SYS. 

<E>NTER USER — Allows entering 
a user into the log without that user 
having to call the system and register. 

<U>SER CLASS — Not used at this 
time. 

<Q>UIT — Exit the editor. 


<H>ARD COPY — Prints the full 
userlog entries to the printer. 

A user’s information must be initially 
printed before any modification can be 
done. This is normally done except 
when first running the editor. 

When choosing the <M>ODIFY 
option, the system asks for which field 
to be modified. A user’s entry is format- 
ted as follows: 


USER # (number of record) 

A) user name 

B) password 

C) calling from 

D) registration flags 

E) privilege ievel 

F) number of times called 

G) first 8 user flags 

H) second 8 user flags 

I) initial log on menu # 

J) not used 

K) not used 

L) user prompting level 

M) time out value 

N) not used 

O) last msg received 

P) caller # on last call 

Q) last time on 

Choosing one of the fields to modify 
the system prints the original data. If 





Listing 1: SCF EDI 


@ ’-SCF/ED] <C> 1985 BY RICHARD 
DUNCAN 
3 CLEARI6G6:DIM SY$(56) 


February 1964. 


ENTER is pressed by itself, the data is not 
changed; while typing the modifications 
that data is modified. Not all entries can 
be modified. The user’s listing need not 
be printed out after each modification. 
After performing a modification the 
SysOp is returned to the COMMAND> 
prompt and may perform any of the 
valid commands. The command help 
table may be printed by pressing “?’. 
How a user is upgraded depends on 
how you have the system set up and how 
much access you want that user to have. 
With the simple menu system included, 
to upgrade a caller to a normal user’s 
access (Leave messages) you modify the. 
privilege and upgrade it to 30. You 
would also like to show him registered, 
so use the ‘R’ command and choose the 
type of user you want him to be (New, 
Probationary or Registered). 


System Message Purge 

This routine is used to eliminate the 
deleted messages from the message base 
file as it grows in size. The routine is self- 
prompting and really does not need any 
additional information. 


Booting up 

Your modem must be an auto-answer 
modem. Some manuals mention a spe- 
cial setup for the CoCo, but you should 
ignore this. When using the Pak, you 
operate like the Model III and many 
other systems. The main thing is that 
you set the modem to be controlled by 
the DTR line as this is the line that 
hangs up the modem. If you have a 
Modem II, you should check out Com- 
puServe or another system using that 
modem, as it does require some changes 
to the system that I do not have. 

The first step in getting the system up 
is to initialize the Drive 0 disk with 
SCF/EDI, then set up the menu file 


10 CLSsPRINT sPRINT 

26 PRINTTAB(S) ;°SYSTEM CONTROL E 
DITOR" 

36 PRINT :PRINT 

48 PRINT"LOG-ON TYPE (4): "5:G05 
UB658 : CH=VAL (CHS) :SY$(1)=CHS: IFC 
H>4THEN4@ELSEIFCH=8 THEN SY$(1)= 
#q* 


58 PRINT"MENU TO ENTER IN <8): *° 
+ GOSUB656 :CH=VAL(CHS) :SY$(2)=CH 
$: IFCH)255SORCH<@THENS@ELSEIFCHS= 
* *THENSY$(2)="6° 

55 PRINT*NEW USER TIME OUT <4): 
* + GOSUB658 : CHEVAL (CHS) : ]FCH259 
THENSSELSESY$(3)=CH$ : IFSY$(3)="" 
THENSY$(3)="4° 
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with SMF/EDI. Next, get the system 
into 64K mode, type PCLEAR1, and load 
and run STARTUP/ BAS. Everything 
is self-prompting from there. You enter 
the date/day/time, whether or not you 
want the system protected (for CoCo 
I’s) and then if you want the C/R mod. 


The protection causes the modem to 
hang up if the BBS goes into BASIC any 


way other than under a command. The 
other modification is actually done to 
the driver routine and, if installed, 
modifies it so a CHRS(13) is the output 
when there is no carrier detect. If using 
1200 Baud, this is required and is good 
at anytime to make certain the system 
reboots if a carrier is lost while in use. 
But, when installed, it also means you 
cannot break into BASIC without re- 
moving it. This is handled anytime you 
properly go into BASIC from the standby 
screen, or exit into BASIC with one of the 
commands. Logging on locally from the 
keyboard requires that you first remove 
the modification (SHIFT-up arrow at the 
standby screen) then RUN the program 
and use it normally. Another way is to 
use the SHIFT-up arrow and type POKE 
4658 ,@:CONT. To reinstall the modifi- 
cation from BASIC, type GOT010@@ in 
either USER/SYS or COBBS/SYS. 

If you have initialized all the disk 
correctly, created a menu file and 
booted up with STA RTUP/ BAS, you 
are now ready for a call. We have 
covered in this installment (and the 
preceding two) all the files required to 
get CoBBS up and running. Because of 
the space limitation there was not much 
room to get into a detailed discussion 
of the board operation, but with a little 
experimentation you should be able to 
get everything going. Take everything 
one step at a time rather than trying to 
get a “full-blown” system up at once. 


60 PRINT*NEW USER PRIVILEGE <25) 
+ "s1:60SUB650 :CHEVAL (CHS) : IFCH(8 
ORCH) 255 THENGBEL SESY$(4)=CH$: FC 
HS=""THENSY$(4)="25° 
65 PRINT*NEW USER FLAG 1 <eoga08 
86): + :G0SUB450: ]FLEN(CHS) 8TH 
ENSSEL SESY$(‘5)=CH$ 
67 FORA=1T08:X$=41D$(CH$ A, 1) :1F 
X$="1 "ORX$="0" THENNEXTA:ELSESS 
78 PRINT'NEW USER FLAG 2 <eege86 
80): ": :GOSUB45O:IFLEN(CHS)<)8TH 
EN7GELSESY$(6)=CHS 
72 FORA=1T08:X$=MID$(CHS,A, 1) s1F 
X=" 1 "ORX$="@" THENNEXTAsELSE76 
74 PRINT*NEW USER PROMPTING (1): 
* + :G0SUB45@ : JFCHS=""THENSY$(7)= 


PA 


"1 "ELSECHEVAL (CHS) s IFCH< 1ORCHD4T 
HEN74EL SESY$< 7)=CH$ 
79 PRINT"CHECK FOR MESSAGES? <Y> 
* s SGOSUBS56 : JFCHS=" “THENSY$(8)= 
"Y"ELSEK=INSTR¢"YyNn° ,CHS) s 1FK)2 
THENSY$(8)="N"ELSE?5 
88 PRINT"TRACE USER’S OPERATION? 
{2) "s:GOSUB656: JFCH$=" "THENCHS 
="2°ELSEIFLEN( CHS) (> 1 THENS@ELSEC 
H=VAL (CHS) 
82 IFCH)3THENSBELSESY$(9)=CHS 
85 PRINT“SECURITY PASSWORD? <Y): 
*  GOSUBS50 : IFCHS=" "THENSY$¢ 16) 
="Y"ELSEK=INSTR("YyNn° CHS) s ]FK= 
@THENSSELSEIFK<3THENSY$( 18)="Y"°E 
LSESY$¢16)="N" 
98 PRINT"REGISTER NEW USERS? <Y) 
"s sGOSUB456 : IFCHS=" "THENSY$(11) 
="Y"ELSEK=INSTR("YyNn" CHS) s IFK= 
OTHENS@EL SEIFK<3THENSY$(11)="Y°E 
LSESY$(11)="N" 
95 PRINT*DISPLAY NEWUSER/TXT? <Y 
> *ssGOSUB658 : IFCHS=" "THENSY$(12 
="Y"ELSEK=INSTR¢°YyNn° CHS) : 1FK 
=QTHENISELSEIFK<3THENSY$(12)="Y" 
ELSESY$¢12)="N" 
97 PRINT"DISPLAY POSTLOG/TXT? <Y 
> *s:GOSUB656: IFCHS=° "THENSY$(13 
)="Y"ELSEK=INSTR¢ “YyNn* , CHS) s IFK 
=6THENS7ELSE] FK (3THENSY$(13)="Y° 
ELSESY$¢13)="N" 
168 PRINT*BLANK IDLE SCREEN? <Y) 
"s GOSUBS5@ : IFCHS=" “THENSY$( 14) 
="Y"ELSEK=INSTR¢°YyNn° ,CHS) s IFK= 
O THEN! BBELSEIFK <(3THENSY$<(14)="Y" 
ELSESY$¢13)="N’ 
118 PRINT"MESSAGE HEADER DRIVE < 
6>: °s:60SUB656 :CH=VAL (CHS) : IFCH 
{BORCH) STHENI 1GELSESY$¢15)=CHS: 1 
FCHS=" °THENSY$(15)="6" 
1153 PRINT"MESSAGE TEXT DRIVE <@> 
: °ss60SUB456 :CH=VAL (CHS) : IFCH<@ 
ORCH) STHENI 1 SELSESY$(146)=CHS: IFC 
H$=" “THENSY$¢146)="8" 
120 PRINT*USERLOG DRIVE <8): "3: 
GOSUBES6 : CH=VAL (CHS) : JFCH<@ORCH) 
STHEN! 2BELSESY$<¢17)=CHS$: IFCHS="" 
THENSY$(17)="6° 
125 PRINT’BOARD MENU DRIVE <6): 
° s GOSUBSS8 :CH=VAL (CHS) : IFCH<G0R 
CH) 3THEN1 25ELSESY$¢18)=CHS : IFCHS 
=""THENSY$(18)="6° 
136 ’PRINT"CALLER LOG DRIVE <@): 
" ; sG0SUBS56 sCH=VAL (CHS) : IFCH<60 
RCH) STHENI 3BEL SESY$(19)=CHS: IFCH 
$=" *THENSY$(19)="8" 
135 IFVAL(SY$(9) )=2THENPRINT’SYS 
TEM TRACE DRIVE <6): °s:GOSUB656 
sCHEVAL( CHS) : IFCH(@ORCH)STHENI 35 
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ELSESY$(28)=CHS : JFCHS=" "THENSY$¢ 
20)="6" 

146 IFSY$(11)="Y°THENPRINT°REGIS 
TER DRIVE <8): °3:G0SUB656:CHEVA 
L<CHS) : JFCH<@ORCH) 3THENI 4BELSESY 
$(21 )=CHS : IFCHS=""THENSY$(21)="8 


968 GOTO1600 

656 ’-LINE INPUT- 

655 LINEINPUTCHS :RETURN 

675 GOSUBS55:61$="° : JFCHS=" "THEN 
RETURN 

686 FOR G=1 TO LENCCH$) 

685 GI=ASC(MIDS(CHS ,G,1)) s1FG1>9 
6ANDG1 <1 23THEN 61=61-32 

698 Gi$=61$+CHRS(G1) :NEXTG:CHS=6 
1$:RETURN 

1608 ’ 

1065 CLS:PRINT:PRINT 

1618 PRINT°LOG ON TYPE: °;SY$(1) 
1815 PRINT"MENU ENTRY: * :SY$(2) 

1828 PRINT"NEW USER TIME OUT: °; 
SY$(3) sPRINTTAB( 18) "MINUTES: " 35% 
VAL(SY$(3)) 

1625 PRINT"NEW USER PRIVILEDGE: 

* sSY$¢4) 

1036 PRINT*NEW USER FLAG 1: "SY 
$(5) 

1635 PRINT"NEW USER FLAG 2: ":SY 
$(6) 

1646 PRINT"NEW USER PROMPTING: " 
sSY$(7) 

1645 PRINT :PRINT 

1858 PRINT°<Q)UIT TO RESTART °;: 
GOSUBS56 : IFLEFTS<CH$ 1 )="Q° THENR 
UN 

1055 CLS:PRINT :PRINT 

1668 PRINT°CHECK MESSAGES: °s:1F 
SY$(8)="Y°THENPRINT "YES*ELSEPRIN 
TNO" 

1665 PRINT"TRACER: °;SY$<9) 

1678 PRINT"SECURITY PASSWORD: °; 
3 ]FSY$(18)="Y°THENPRINT "YES" ELSE 
PRINT°NO" 

1675 PRINT°REGISTER USERS: °s:IF 
SY$¢11)="Y"THENPRINT" YES" ELSEPRI 
NT"NO" 

1686 PRINT°NEW USER TEXT: "s:IFS 
ub 2)=*Y°THENPRINT "YES"ELSEPRIN 


1685 PRINT"POST LOG TEXT: °::IFS 
¥$(13)="Y" THENPRINT" YES" ELSEPRIN 
TNO" 

1698 PRINT°BLANK IDLE SCREEN: *; 
s IFSY$(14)="Y" THENPRINT® YES" ELSE 
PRINT*NO® 

1895 PRINT:PRINT® {QUIT OR <ENTE 
R)"s :G0SUB450: IFLEFTS(CHS, 1)="0° 
THENRIN 
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1164 CLS:PRINT :PRINT 

1165 PRINT*HEADER DRIVE: °;SY$(1 
9) 

1118 PRINT°TEXT DRIVE: °;SY$(16) 
1115 PRINT"USERLOG DRIVE: ° ;SY$¢ 
17) 

1128 PRINT"BOARD MENU DRIVE: °;5 
¥$(18) 

1125 “PRINT"CALLER LOG DRIVE: °; 
SY$(19) 

113@ PRINT"TRACE DRIVE: ° ;5¥$¢28 
) 

1135 PRINT"REGISTER DRIVE: *;SY$ 
(21) 

1148 PRINT:PRINT" (QUIT OR <ENTE 
R>" s sGOSUB65@ s IFLEFTS< CHS, 1)="@" 
THEN RUN 

3808 ’-SAVE SYSTEM CONTROLS 

3685 CLS:PRINT:PRINT 

3016 PRINT*ABOUT TO SAVE FILE!!! 


3615 PRINT:PRINT° INSERT SYSTEM D 
RIVE ZERO" 

3626 PRINT"DISK IN DRIVE ZERO. T 
HIS" 

3625 PRINT°FUNCTION WILL WRITE T 
0 TRACK" 

3038 PRINT"17 SECTOR 18 AND MUST 
BE" 

3635 PRINT°THERE FOR COBBS 10 OP 
ERATE." | 
30468 PRINT:PRINT:PRINT"READY 10 
SAVE? <YES/NO) °; :60SUB650 

3645 JFCHS="YES° THEN4668 

3856 CLS:PRINT:PRINT :PRINT 

3655 PRINT’1 - RESTART’ :PRINT*2 
~ SAVE FILE" :PRINT"3 - END’ 

3068 PRINT" >": sGOSUB6S6 :CH=VAL ( 
CHS) 

38665 IFCH(1ORCH)STHENSBS6 

3676 ON CH GOTO 3875,3066 , 3086 
3675 RUN 

3888 UNLOAD: END 

4066 ’-SAVE FILE..... 

4085 ’ 

46186 CLS8 

4015 PRINT@229,° INSERT COBBS SYS 
TEM DISK" ; :60SUB458 

4826 CLS3:PRINT2233, "READY TO SA 
VE": sG0SUB58 

4025 IFLEFTS(CHS,1)<>°Y°THENS@G8 
4838 CLS6:PRINT2235, "PROCESSING® 


5 

4635 S$="COBBS11A" 

4646 FOR A=1T04:5$=S$+CHRS(VAL(S 
Y¥$(A))) NEXTA 

4045 F$=SY$(5) :60SUB5046 :S$=S$+F 
$ 

4650 F$=SY$(6) :G0SUB5646 :5$=S$+F 
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$ 

4655 S8=S$+CHRSCVAL (SY$(7))) 

4066 IFSY$(8)="Y°THEN S$=SS+CHRS 

(255) ELSE S$=S$+CHRS(6) 

4065 9$=S$+CHRSCVAL(SY$(9))) 

4076 JFSY$(18)="Y°THEN $$=S$+CHR 

$(8)ELSES$=9$+CHR$(255) 

4675 JFSY$(11)="Y°THEN $$=S$+CHR 

$(8) ELSES$=9$+CHR$( 255) 

4088 IFSY$(12)="Y"THEN $$=S$+CHR 

$(8)ELSES$=S$+CHRS( 255) 

4085 IFSY$C13)="Y"THEN S$=S$+CHR 

$(8)ELSES$=S$+CHR$(255) 

4698 IFSY$(14)="Y"°THEN 9$$=S$+CHR 

$(255) ELSES$=S$+CHRS (8) 

4186 FORA=157021 :S$=S$+CHRS(VAL¢ 

SY$(A))) :NEXTA 

4966 IFLEN(S$))128 THEN SiS=LEFT 

$(S$ 128) :S2$=R1GHT$(S$ ,LEN(S$)- 

128) ELSE S1$=$$:S2$=STRING$(127 
233) 

4965 CLS4:PRINT#232,°SAVING DATA 
 ] 

4916 DSKOS 8,17,18,S1$,S2$ 

4928 CLS:PRINT:PRINT"SYSTEN CONT 

ROL FILE SAVED.° 

4925 END 

3668 ’-DECIMAL TO BINARY 

5005 F=ASC(F$) sE=128:F$="" 

3616 FOR G@1 10 8 

3815 J=INT(F/E) 

5628 IF J=6 THEN FS=F$+"@°ELSEFS 

=F$+"1° 

5625 F=F-(E#J) sE=E/2 

3038 NEXT @ 

9635 RETURN 

3848 ’-BINARY TO DECIMAL 

3645 E=1:F=6 co 

3658 FOR @8 10 1 STEP -1 

9655 JFMIDS(F$,@,1)="1°THEN F=Ft 

E 

3666 E=E#2:NEXTO:FS=CHRS$(F) 

5865 RETURN 


Nace 149 1250... 






Listing 2: SMF EDI 


“10 CLEARS6G@:DIM BCS(21) ,PRE(21 
) ,P1$¢21) ,P2$¢21) ,TY$¢21) ,0$¢21) 
K¥S¢21) TX$(21) 

20 CLS:PRINT:PRINT:PRINT® COBBS 
MENU CONTROL FILE 1.6°sPRINT 
295 PRINTTAB(S)°<1> CREATE NEW NE 
Nue 

ebruary 19786. 


38 PRINTTAB(S)"<2> EDIT EXISTING 
MENUS 

35 PRINTTAB(S)°<3) EXIT EDITING" 
:PRINT® (4) RETURN TO BBS° 
40 GOSUB488 :A=VAL (CHS) 

45 ON Ati GOTO 46 206,58 ,46,47 
46 CLOSE: UNLOAD :PRINT° ACCES 
S: "s:G0SUB675: 1FCH$="REBOOT CLE 

ARED" THEN END ELSE RUN 

47 LOAD’ COBBS/SYS’ ,R 

30 PRINT :PRINT:’PRINT°MENU PREF! 
X: °s sG0SUBYS58 

32 PRINT*BOARD NUMBER: °: :GOSUB9 
856: IFCH$=""THEN RUN 

55 BC=VAL(CHS) : IFBC)255THENZ@ 

66 OPEN"D® 41 , “MENU/SYS® , 256 :Ki= 
LOF(1) 

65 FIELDH!,1 AS B6$,1 AS BIt,1 A 
§ B2$,1 AS B3$,16 AS B4$,288 AS 
B3$,1 AS Bé$,29 AS B7$ 

76 FOR A=1 70 Ki STEP 4 

75 GETH! AsIF ASC(BSS)=BC THEN R 
@=A:G0T068 ELSE NEXT A:CLOSE:RUN 
88 GOSUBI706 :PRINT :PRINT "LOADING 
MENU" :BC sBC=ASC(B@$) :sPR=ASC(BIS 
) :F$=B2$ :G0SUBI 56 :F 1$=F$ : FS=B3$: 
G0SUB150 :F2$=F$ : BNS=B4$ : BT$=B5$ 
81 K=INSTRCENS .CHRS(@)) : IFK=6THE 

NBZELSEGNS=LEFT$<(BNS ,K-1) 

82 K=INSTR(BTS ,CHRS(6)) : JFK=8THE 

NBDELSEBTS=LEFT$(BT$ ,K-1) 

83 IF ASC(Bé6$)=6 THEN PMS="N° EL 
SE PM$="Y" 

85 FIELD#1,35 AS B$<6) 35 AS BS¢ 
1),35 AS B$¢(2),35 AS B$(3) ,35 AS 
B$(4) 35 AS B$(5) ,35 AS BS(d),5 
AS 8$(7) 

96 B=1 :X=6:C0-6 

92 X=X+1 sGETS1 ,RO+X 

95 FOR A=6 10 6 

96 IF B$<A)=STRING$( 35,255) THEN! 
26 

97 CO-CO+1 :BC$(A+B)=BS¢A) :PRINT 
RECORD #°;€0 

100 BS=BS(A) sPR$(A+B)=STRSCASCC(L 
EFTS(BS ,.1))) sFS=MIDS¢CBS 2,1) 60S 
UB150 sP1$(A+B)=F$ :FS=410$(8S,3,1 
) 60SUB156 :P2$(A+B)=F$ : TY$(A+B)= 

MIDS(BS 4,1) sDS(AtB)=MIDS(BS 5,5 
) KYSCAtB)=41D$- (BS 16,1) sTXSCAtB 
=RIGHT$(B$ 25) sNEXTA 

165 B=B+7:]FB)16THENI 2BELSE92 
128 PRINT“WAIT...° 

135 REM 

146 GOTOS#@ 

1356 ‘-DECIMAL TO BINARY 

152 F=ASC(F$) :E=128:F$="° 

134 FOR @1 10 8 

136 JF INT(F/E) 
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138 IF J=6 THEN FS=F$+°@°ELSEFS= 


F¢+"1" 

168 F=F-(E8d) sE=E/2 

162 NEXT @ 

166 RETURN 

175 ’-BINARY TO DECIMAL 

177 W=LEN(FS) :E=1:F=0 

179 FOR Q=W 10 1 STEP -i 

18] JPMIDSCFS,Q,1)="1° THEN F=F+E 
183 E=E#2:NEXTO:FS=CHRS(F) 

185 RETURN 

206 CLS:PRINT PRINT :PRINT 

261 FS="MENU/SYS®":PRINT*FOUR CH 

ARACTER PREFIX: °;:GOSUB985@:IFL 

EN(CHS) }4THENZB1ELSE FS=CHS+°MEN 

U/SYS" 

262 PRINT*KILL OLD MENU FILE? °; 

285 GOSUB675 

216 JFCHS="N"THENPRINT "NO® :FORT= 
170586 :NEXTT :60T0228 

213 JECHS="Y°THENPRINT*YES® KILL 
"MENU/SYS® sR@=1 :60T0228 

216 GOTO285 

220 OPEN’D® , #1 ,F$, 258 :K1=LOF(1) 

388 FORT=1TO5:PRINT:NEXT T:CLS3P 

RINT*#° sBC sTABC 18) sBN$ 

385 GOSUBS768 :PRINT’COMMANDS: °; 

CO:PRINT 

316 PRINT'<1> ADD A COMMAND’ 

328 PRINT"<2) CHANGE A COMMAND® 
920 PRINT’<3) LIST MENU® 

338 PRINT® <4) ADD/CHANGE BOARD M 
FNU? 

330 PRINT"<5S) LIST/EDIT HEADER’ 
346 PRINT®<6) DELETE A COMMAND 

545 PRINT"<7> EXIT AND WRITE 

558 PRINT"<{8) EXIT :60SUB9766 

395 GOSUBG88 :A=VAL (CHS) s TFAC1ORA 
8THENSSS 

368 GOSUB9700:0N A GOSUB 1100 ,12 
66 1388 1606 1508, 1686 , 2866 , 9999 

365 GOTOS08 

686 ’-SINGLE KEY ENTRY 

602 CHS=INKEY$: IFCHS<>° *THENGI6@ 
665 EXEC&HI6DA:CHS=CHRS(PEEK( 448 
1)) s TFCHS=CHR$( 8) THENG@2ELSEIFCH 

$=CHRS(13)THENCHS="" 

618 GOSUB9706 

615 RETURN | 

625 GOSUB682: 1FCHS=""THENRETURNE 
LSECHEASC(CHS) 

638 IFCH)94ANDCH<123THEN CH=CH-3 
2 

635 CHS=CHRS$(CH) :RETUAN 

658 ’-REMOTE INPUT KEYBOARD 0 

NLY 

655 LINE INPUTCHS :60SUB9766 

668 6G0SUB9788 

665 RETURN 
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675 GOSUB655:G$="" : IFCHS=""THENR 
ETURN 

686 FOR A=1 TO LENCCH$) 

685 G=ASC(MIDS(CHS .A,1)) s TFG)96A 
NDG<123THEN G=6-32 

698 6$=6$+CHR$(G6) sNEXTAsCHS=6$ :R 
ETURN 

1686 ’-CREATE A MENU- 

1685 ’ 

1616 PRINT :PRINT :PRINT :GOSUB9 786 
sPRINT°<A)DD OR <COHANGE: °::605 
UBS25: IFCHS="A"THEN B&=6:60T0161 
3 ELSE IFCHS="C"THEN B8=1 ELSE R 
ETURN 

1013 RB=LOF(1)+1 sCLS:PRINT sPRINT 
SPRINT:PRINT® BOARD #°: :GOSUB98 
JO:IF CH=" THEN RETURN ELSE X= 
VAL(CHS) : IF X<@ OR X254 THEN 18 
15 

1626 FIELD#1,1 AS Bi¢,1 AS B2$,! 
AS B3$,1 AS B4$,16 AS B5$,238 A 
§ Bé$sKi=LOF(1):1F Ki=@ THEN 163 


8 

1822 FOR A=1 TO Ki STEP 4:]F ASC 

(B1$)=X THEN 1624 ELSE NEXT A:60 

701838 

1624 CLS:PRINT:PRINT"BOARD EXIST 
*sPRINT°NUMBER: * sASC(BI$) sPRIN 

T*PRIV: " sASC(B2$) sPRINT"NAME: " 
sBO$:PRINT:PRINT"DELETE ¢YAN) ° 

1626 GOSUB9880:IF CHS<>"Y°THENRE 

TURN 

1638 BC=X:R8=A 

1631 PRINT°PRIV: °s :GOSUB9858:PR 

=VAL(CHS) sIF PR{® OR PR>254 THEN 
163! 

1832 PRINT"FLAG 1: °::GOSUB9856: 
JFLENC CHS) (>8THENIG32ELSE F1$=CH 

$ 

1634 PRINT“FLAG 2: °;:GOSUB9858: 

IFLEN( CHS) (> 8THEN1@34EL SEF 2$=CHS 

1636 PRINT"NAME: °;:G0SUB9856: EN 

$=LEFTS(CHS+STRINGS( 16,8) 14) 
1037 IF B&=6 THEN CO=8 

1638 PRINT°POST MESSAGES? °::G0S 

UB625: IFCHS="Y"°THEN PM$="Y° :PRIN 

T°YES*"ELSEPRINT"NO": PM$="N" 

1648 PRINT"ENTER TEXT, USE SHIFT 

“CLEAR KEY":PRINT"FOR <CR). END 

WITH <CR> ALONE 

1845 TSS=CHR$(13)+CHRS(8)+"\° :60 

T1574 

1658 RETURN 

1168 ’-ADD A COMMAND- 

1165 PRINT:PRINT:PRINT° INSERT AF 

TER: "3 

1186 GOSUB985@ : Y=VAL(CHS) : IFY=8 

AND CHS="L°THEN Y=CO ELSEIFCH$=" 

“THENRETURN 
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1118 Y=¥+1:]FY)21] THENPRINT’ BUFFE 

R FULL." :RETURN 

1115 CO=CO+1:1F C021 THEN PRINT 

"COMMAND BUFFER FULL" :RETURNELSE 

CLS:PRINT :PRINT 

1128 PRINT"BOARD COMMAND #° ;CO 

1125 PRINT TEXT: °3:G0SUB456 : TX$ 

=LEFT$(CHS+STRINGS( 25,8) , 25) 

1136 PRINT" KEY: °;:60SUB9866 :KY 

$=CHS :PRINTCHS 

$135 PRINT*PRIV: "3 :GOSUB9856 :X= 

VAL( CHS) : IFX<@ORX>254THENI 1 35ELS 

E PRS=CHS 

1148 PRINT’ Pi: ";:GOSUB985@:IF 

LENCCHS) <>STHENII46ELSE Pi$=CHS 

1143 PRINT’ P2: °3:GOSUB9850:IF 

LENCCHS) <>8THENII45ELSE P2$=CHS 

115@ PRINT:PRINT°TYPE: *::GOSUB9 

866: JFCHS="" THEN! 1S@ELSEX=ASC(CH 

$) s IFX<330RX>9OTHENIIS@ELSE TYS= 

CHS :PRINTCHS 

1155 PRINT*DATA: °;:GOSUB9850:1F 

LEN( CHS) >STHENI 1 SSELSEDS=CH$ 

1168 PRINT:PRINT"DATA ENTERED® :F 

ORT=170588 sNEXTT sPRINT"WAIT...°: 

IF CO=1 OR Y=CO THEN 4=C0:607011 

86 

1165 FOR A=CO-1 TO 1 STEP -1 

1178 TXSCA+1 =TX$(A) SKYS(At 1 =KY 

$(A) sPRS(A+1)=PRS(A) sP1S(A+1)=PR 

$(A) sPISCA+ 1 =PIS(A) sP2S(A+1 )=P2 

$(A) sTYS(At1=TYS(A) sDS(At1=D$( 

A) 

1175 IF A=Y THEN 1186ELSENEXT A: 

f=1 :RETURN 

1188 TX$<(A)=TX$ sKYS(A)=KY$ sPRSCA 

J=PRE sP1$(A)=P1$ sP2$(A)=P2$ s TYS< 

A)=TY$ :D$(A)=D$ 

1185 RETURN 

1288 ‘-CHANGE MENU- 

1285.’ 

1218 ’ 

1213 CLS:PRINT PRINT 

1228 PRINT"MENU NUMBER: °: :G0SUB 

9856: IFCHS=" “THENRETURN 

1225 X=VAL(CHS) s 1FX)21 THENI 228 

1236 CLS:PRINT:PRINT sPRINT"MENU 

PROMPT #° sX:PRINT 

1235 PRINT°TEXT: °sTX$(X) sPRINT® 
>" 5 :G0SUB9850 

1246 IFCHS="" THEN! 245EL SETX$(X)= 

CHS 

1245 PRINT’ KEY: " 3KY$(X) :PRINT 
)* 5 s60SUB9806 : IFCHS="°THENI2 

SBELSEKY$(X)=CHS : PRINTCHS 

1258 PRINT"PRIV: ° 3PRS$(X):PRINT® 

)* s GOSUBI8S8 : IFCHS=" “THEN 255€ 
LSEPR$(X)=CH$ 
1255 PRINT" Pi: °sP1$<{X):PRINT® 
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>": sGOSUB98S@ : IFCHS=" "THEN! 268E 
LSEPI$<(X)=CHS 
1268 PRINT® P2: °3P2$<X) sPRINT" 
>" s GOSUB98SS : IFCHS=" " THEN] 265E 
LSEP2$(X)=CH$ 
1265 PRINT°TYPE: °sTY$(X)3 s:PRINT 
" )*s:G0SUB9806 : IFCHS=" "THEN! 276 
ELSETY$(X)=CHS : PRINTCHS 
1278 PRINT:PRINT"DATA: °sD$(X)3: 
PRINT’ >": :G0SUB9856 : IFCHS="° THE 
Ni275ELSED$(X)=CH$ 
1275 PRINT:PRINT"EDIT COMPLETE" 
1286 FORT=1T050@ :NEXTT sRETURN 
1388 ’-LIST MENU- 
1385 ’ 
1316 GOSUB9788 
1315. CLS:PRINT :PRINT sPRINT 
1328 PRINTTAB(S)"<1> FULL LISTIN 
G5" 
1325 PRINTTAB(S)°<2)> TEXT LISTIN 
Gg" 
1338 PRINTTAB(5)"<3) PRINT LIST] 
NG 
1335 GOSUB686 : IFCHS=""THENI 335EL 
SEA=VAL (CHS) . 
1348 IFA)STHENI 335 
1345 ON Ati GOTO 1358, 1355, 1408 
1358 RETURN 
1355 FOR X=1 TO CO 
1356 G0SUBI366 :60T01396 
1368 CLS:PRINT:PRINT sPRINT“MENU 
NUMBER: °sX 
1365 PRINT:PRINT°TEXT: "3 TX$(X) 
1378 PRINT’ KEY: "sKY$<X) 
1375 PRINT"PRIV: °sPRE(X) 
1388 PRINT" Pi: "sP1$<X) 
1385 PRINT’ P2: "3P2$<X) 
1398 PRINT°TYPE: °sTY$<X) 
1395 PRINT"*DATAs °3D$(X) :RETURN 
1396 GOSUB625: IFCHS="@° THEN RETU 
RN ELSE NEXT X 
1397 PRINT°END OF FILE°:FORT=1T0 
506 :NEXTT :RETURN 
1488 CLS:PRINT 
1485 PRINT BT$:PRINT 
1418 PRINT :PRINTENS 
1415 FOR X=1 TO CO 
1428 PRINT TX$(X) :GOSUB9766 
1425 FORT=170100 :NEXTT 
1438 NEXTX 
1435 GOSUBI866 : RETURN 
1586 ’-HEADER- 
1565 ’ 
1518 ’ 
1515 CLS:PRINT:PRINTsPRINT 
1528 PRINTTAB(S)"<1> LIST HEADER 


1525 PRINTTAB(S)°<2) ENTER NEW H 
EADER® :PRINTTAB(S)*{ENTER) TO EX 
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IT° 

1338 GOSUB66@ :A=VAL(CH$) 

1535 IFA)ZTHENI 536 

1346 ON Ati GOT01945, 1598 1545 
1345 RETURN 

1358 CLS:PRINT PRINT :PRINT 

1555 PRINT"HEADER FOR BOARD: °;B 
C:PRINT :PRINTBT$ 

15468 GOSUBI888 :G0T01566 

1565 CLS:PRINT:PRINT :PRINT sPRINT 
"OLD HEADER READS:" 

1578 TS$=CHRS(13)+CHRS(8)+°\" :PR 
INTBT$ :PRINT:PRINT°ENTER NEW HEA 
DER..." PRINT sPRINT :BT$="" 

1574 PRINT">": 

1575 GOSUB668 : IFCHS=°"THENI S6GEL 
SEK=INSTR(TS$ CHS) :0N K+i GOTO 1 
995, 1586 , 1585, 1598 

1586 GOTOIS60 

1585 IFLENCBT$) 1 THEN PRINTCHRS< 
8); sBIS=LEFTS(BT$ ,LENCBT$)-1) :60 

T01575 

1598 PRINT :BTS=BT$+CHR$(13) :60T0 
1574 

1595 BIS=BT$4CHS :PRINTCHS: :GOTO! 
379 

1686 ’-DELETE A COMMAND 

1685 ’ 

1616 ’ 

1615 CLS:PRINT PRINT :PRINT" COMMA 
ND #°; :60SUB9856 

1628 X=VAL(CHS) sIFXSOTHEN RETURN 
ELSEIFX)CO THENI6/5 

1625 PRINT:PRINT"COMMAND #° :X:PR 
INTTX$(X) 

1638 PRINT"DELETE (Y/N)? "; 

1635 GOSUB9S66 : FFCH$<>"Y° THENRET 
URN 7 

1648 PRINT" DELETING..."3 

1645 FORA=X TO CO-1 

1658 TX$(A)=TX$(A41) sKYS(A=KYS¢ 

A+1) sPRSCA)=PRE(AtI) sPIS(AI=P19¢ 
A+] ) :P2$(A)=P2$(A41) :TYS(A)=TY$¢ 

Ati) sD$(A)=D8(At1) 

1655 NEXTA:PRINT :CO=CO-1 :RETURN 
2880 ‘-SAVE MENU 

2685 ’ 

2016 ” 

2015 CLS:PRINT:PRINT 

2028 PRINT’SAVING HEADER.....° 
2025 FIELDHI,1 AS BI$,1 AS B2s,! 
AS B3$,1 AS B4$,16 AS B5$,208 A 
S Bé$,1 AS B7%,29 AS Bas 

2030 IFLOF(1)=6 THEN Ré=! 

2635 LSET BIS=CHRS(BC):LSET B24 
CHRS(PR) :F$=F1$:G0SUB175:LSET B3 
$=F$:F=F2$ :GOSUBI75:LSET B4$=F$ 
2046 LSET BS$=BNS+CHR$(@) sLSET B 
6$=BT$4+CHRS(8):1F PMS="Y°THEN LS 
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ET B7$=CHR$(255)ELSE LSET B7$=CH 
R$(8) 

2845 PUTHI RO 

2656 PRINT’SAVING MENU COMMANDS. 


2055 FIELDH,35 AS B$(8),35 AS B 
$(1),35 AS B$(2),35 AS BS(3) 35 
AS B$(4) 35 AS B$(5),35 AS BS(4) 
(5 AS BS(7) :X=8 

2057 FOR B=1 10 16 STEP 7 

2060 FOR A=0 TO é 

2065 IF A‘BYCO THEN C$=STRINGS(3 
5 255)ELSEGOSUB2095:PRINT® SAVI 
NG RECORD" :A4B 

2078 LSET BS(A)=C$:NEXTA:LSET BS 
(7)=MKN$ (BC) 

2075 RO=RO+! :PUTHI RO 

2080 NEXTB: RUN 

2095 X=VAL(PRS(A#B)) :C$=CHRS(X) 
2188 F$=P1$(A4B) :GOSUBI75:C$=C$4 
F$:F$=P2$(A+B) :GOSUBI75:C$=CS+FS 
2185 C$=C$4TY$(A#B) :D$=LEFTS(Ds¢ 
AtB)e" =", 5) 

2118 CS=C$4D$+KY$(AtB)4TX$(AtB)4 
STRINGS( 25,8) 

2115 RETURN 

9788 ’-CD CHECK- 

9785 IFPEEK(4658)=0THEN9748 
9710 CO=PEEK(65385)AND32 

9715 IFCD<)BORPEEK(4657) <)8THEN? 
758 

9748 RETURN 

9750 CLOSE:UNLOAD:RUN 

9888 ’ 

9885 G0T0625 

98846 IFCHS=CHR$ (13) THENCHS="" 
9818 RETURN. 

9815 ’-FLAG INPUT- 

9828 F$="" 

9825 FOR X=1 10 8 

9830 GOSUB688 :VL=ASC(CHS) : IFVL<4 
SORVL)49THENG#® ELSE FS=F$+CHS:P 


RINTCH$s :NEXTX 
9835. PRINT: RETURN 
9850 ’-LINE ENTRY- 
9855 G0T0675 

9868 RETURN 
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6 ’-COBBS (SUL/ED]) «C1985 
BY RICHARD DUNCAN 

16 CLEARZ566 

28 DR$(8)="8" :DRS¢1)="1" sORS$(2)= 

"2° :DR$(3)="3°" :RO=2 

38 CLS:PRINT:PRINT"COBBS USERLOG 

ED] TOR® :PRINT : PRINT 

48 GOSUB9200 

45 GOSUBIEG 

38 PRINT:PRINT"COMMAND) °; 

66 GOSUBS25 :K=INSTR¢" SGNLMRADPBG 

UE?H" ,CHS) : IFK=@THENGBELSE PRINT 

CHS 

76 ON K GOSUB 1800, 118688 ,98,12 

06 1368 1468 1586, 1648, 2886 , 7868 

1708, 6008, 75,1668 

71 6OTOS8 

75 CLS:PRINT:PRINT" COBBS USE 

RLOG EDITOR® :PRINT : PRINT :GOSUB9@ 

@:RETURN 

88 RO=RO+1:1F RB>LOF(1) THEN R@= 

1 

BS GETHI ,R@:GOSUB8EG8 :RETURN 

90 RO=RO-1:1F RO<1 THEN R@=LOF(1 

) 

95 GET#i ,RO:GOSUBBO88 :RETURN 

686 ’-SINGLE KEY ENTRY 

602 CHS=INKEY$: IFCHS$<>""THENG1@ 

665 EXEC4314:CHS=CHRS(PEEK( 4481) 

) 

618 GOSUB9706 : IFCHS=CHRS (8) THENS 

82 

615 RETURN 

625 GOSUB682:CH=ASC(CHS) 

638 JFCH)96ANDCH<I23THEN CH=CH-3 

2 

635 CHS=CHR$(CH) sRETURN 

65@ ’-REMOTE INPUT KEYBOARD 0 

NLY 

655 LINEINPUTCHS :GOSUB9786 

665 RETURN 

675 GOSUB655:6$="" : IFCHS=""THENR 

ETURN 

680 FOR 4=1 TO LENCCHS) 

685 G=ASC(MIDS(CHS A,1)) sIFG)96A 

NDG<123THEN 6-32 

698 GS=6$+4CHRS$(6) :NEXTA:CHS=6$ :R 

ETURN 

9860 PRINTTABC18)°USERS:° sLOF(1)- 

1 :PRINTTAB(@)"<S)EARCH® sTABC 16)" 

{6)0 TO USER 4° 

985 PRINTTAB(8)" {NDEXT" sTAB(16)° 

{LAST ENTRY® | 

916 PRINTTABC8)"<M)ODIFY FIELD": 

TAB(16)" (ROEGISTER® 

915 PRINTTAB(@)°<A)CTIVATE ": TAB 

(16)" {DELETE 


928 PRINTTAB(8)"<P)RINT LISTING® 
sTABC14)® <BYACKUP® 

925 PRINTTAB(B)® {ENTER USER" :TA 

B(16)*<U)SER CLASS® 

938 PRINTTAB(8)*<Q)UIT® sTAB(14) ; 

"HARD COPY" 

998 RETURN 

1686 ‘-SEARCH- 

1005 ’ 

1018 ” 

1015 PRINT:PRINT 

1828 PRINTTAB(3)*STRING: °: 

1825 GOSUB658: IFCHS=""THENRETURN 

1626 KEINSTR(CHS ,"\") :]FR=@THENS 

@30ELSENIDS< CHS ,K, 1)=CHRS(8) :GOT 

01026 

1038 Ki=LOF(1) 

1635 FOR Y=R@ TO Ki 

1040 GET#1 , Y:K=INSTRCUNS CHS) 

1045 IF K=@ THEN NEXT Y:PRINT:PR 

INT*USER NOT FOUND" :RETURN 

1058 R8=Y :GOSUBGERE 

1055 RETURN 

1186 ’-GOTO RECORD- 

1105 / 

1118 ’ 

1115 PRINT:PRINT*RECORD NUMBER: 
§ 

1128 GOSUB65@:1F VAL(CHS) LOF(1) 

OR VAL(CHS) <1 THENRETURN 

1125 RO=VAL(CHS) :IF RA>LOF(1) THE 

NPRINT*RECORD INVALID.° :RETURN E 

LSE GET#1 ,Re:GOSUBaee0 

1138 RETURN 

1208 “-NODIFY USER RECORD- 

1285 ’ 

1218 PRINT°MODIFY RECORD: *; 

1215 GOSUB425 

1228 K=INSTR(*ABCDEFGHI JKLMNOP" , 

CHS) : ]FK=@THENRETURN 

1225 PRINTCH$:0N K GOTO 3808 ,318 

6 3858 3128, 3158, 3288, 3258, 3386, 


3358 3400, 3458, 3500, 3550 , 3480, 36 


56 , 3788 ,3758 

1386 ’-REGISTER- 

1385 PRINT :PRINT sPRINTNAS :PRINT 

1316 PRINT’ 1 - NEW USER" :PRIN 

T® 2. - PROBATION USER* :PRINT® 
3 - REGISTERED USER" 

1325 PRINT°COMMAND: °: 

1336 GOSUB6O0 :C=VAL(CHS) :IFC<1 0 

R C)3 THEN RETURN ELSE PRINTCHS 

1335 ON C 60701348 , 1355, 1378 :RET 

URN 

1348 MIDS(RFS ,2,1)="8" MIDSCRFS, 

8,1)="8° 

1343 C$=RF$:GOSUB4260:LSET URS=C 

$ 

1356 PUT#1 ,ROsRETURN 
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1355 MIDS(RF$,2,1)="6" sMIDSCRFS, 

8,1)="1" 

1368 60701345 

1378 NIDS(RFS,2,1)="1" sMIDS<RFS, 

8,1)="1" 

1375 60701345 

1406 ’-ACTIVATE- 

1405 MIDS(RF$,1,1)="8" 

1415 60701345 

1508 ’-DELETE- 

1505 MIDS(RF$,1,1)="1" 

1518 60701345 

1688 ’-PRINT 

1605 ” 

1616 CLS:PRINT:PRINT 

1615 PRINT"1 - SCREEN" :PRINT®2 - 
PRINTER" :PRINT"3 - HARD COPY OF 
USERLOG" 

1628 PRINT’ >" 

1625 GOSUB68@ :CHEVAL (CHS): IF CHE 
@ THEN RETURN ELSE 1F CH)3 THEN 
1625 

1638 PRINTCHS:0N CH GOTO 1648.16 
58,1468 

1640 SC=8:G0SUBG888 :RETURN 

1458 SC=-2:G0SUB8888 :RETURN 

1668 SC=-2 

1645 FOR U=2 TO LOF(1) 

1678 GET#1 ,U:GOSUBSe88 

1475 NEXT UsRETURN 

1766 RETURN 

2080 ’-BACKUP- 

2805 PRINT:PRINT:PRINT*USERLOG 8 

ACKUP* 

2818 PRINT:PRINT"DRIVE FOR USERL 

/BAK: °s sG0SUB656 

2015 JFCHS=""THENRETURNELSE D=VA 
L(CHS) 

2020 IF D<B OR D)3 THEN 2B1@ELSE 
PRINT CHS 

2025 PRINT*BACKING UP USERLOG':C 
LOSE 

2038 GOSUB9288 

2031 GOSUB9300:1F K2)@THEN CLOSE 
:KILL FB$:G0T02831 

2035 GOSUB9225:GETM ,1:LSET US=P 
Us 

2048 K2=1 :PUTN2,K2 

2045 FOR R=2 TO Ki 

2050 GOSUB9215:GETH ,R:PRINT"USE 
R §°:R-1: :G0SUB9700 

2055 C$=UR$ :60SU84160 : IFLEFTS(C$ 
»1)=" 4° THENPRINT® <DELETED)® ; 2607 
02065 

2068 FIELOM! 96 AS PUS:LSET US=P 
US :K2=K2+1 sPUT&2 ,K2 

2065 PRINT :NEXT R 

2078 CLOSE :PRINT :PRINT"VERIFYING 
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2075 GOSUB9380:FOR R=1 10 K2:GET 

#2, R:NEXT R:CLOSE 

2088 PRINT°KILL AND COPY? "::60S 

UBS86 : FCH$<)*Y" THENPRINT :GOTO28 

90 ELSE PRINT*YES® PRINT :PRINT"K 
JLLING OLD FILE"; :KILL FS$:PRINT 

2085 PRINT*COPYING NEW FILE" ;:C0 

PY FBS 10 FS$:PRINT 

2890 CLOSE :GOSUB9266 

2095 RETURN 

9068 ’-CHANGE NANE- 

3065 GOSUB4066:PRINT:PRINT "NAME: 
* NAS:PRINT"CHANGE TO: °: 

3816 GOSUB475: IFCHS=""THENRETURN 

9015 IF LEN(CHS)+LEN(LO$))5@ THE 

NPRINT*NAME 100 LONG!" :60T03065 

3020 LSET UNS=CHS$+CHR$(8)+L0$+CH 
RS(O) :PUTEI RO 

9025 RETURN 

3658 ’-CHANGE LOCATION- 

9055 GOSUB4000:PRINT:PRINT"FROM: 
*LOS:PRINT'CHANGE TO: °: 

3060 GOSUBS75:IFCHS=""THENRETURN 
3065. IFLEN(NAS) +LEN(CHS)41)5@THE 

NPRINT*T00 LONG! ® :60T03855 

3878 LSET UNS=NA$#CHRS(B)+CHS4CH 

R$(8) :PUT#I ,RO:RETURN 

3168 ’-CHANGE PASSWORD 

3165 PRINT:PRINT*PASSWORD: "UPS 
:PRINT®CHANGE TO: *: 

3118 GOSUB45@: IFCHS=""THENRETURN 
3115 LSET UPS=CHS+STRINGS(8, 6) :P 

UT#1 , RO :RETURN 

3128 ’-CHANGE REGISTER FLAG 

3125 C$="":PRINT:PRINT"CHANGE TO 


3138 FOR X=1 TO 8:GOSUB 600:IFCH 

$=""THENRETURNELSE C$=C$+CH$: PRI 

NTCHS » sNEXTX 

3135 GOSUB4268:LSET URS=C$:PUT#! 
RB sRETURN 

3158 ’-AUTHORITY CHANGE 

3155 PRINT sPRINT"AUTHORITY :° sPR: 

PRINT’CHANGE TO: ‘; 

3168 GOSUBé50 : IPVAL( CHS) <256THEN 

3165ELSERETURN 

3165 IPVAL(CH$)=6 AND CHS<>"6"TH 

ENRE TURN 

3178 LSET UAS=CHRS<VAL(CHS)) sPUT 

#1, R@sRETURN 

3280 ’-CHANGE LOG ON # 

3285 PRINT :PRINT°NUMBER OF LOGIN 
:"sLGsPRINT°CHANGE TOs: ": 

3218 GOSUBGS6 : IFCHS=" ° THENRETURN 

3215 LSET USS=MKNS<VAL(CHS)) sPUT 

#1, RB :RETURN 

3258 ’-P1 FLAG 

3255 C$=""sPRINT:PRINT"P1 FLAG: 
" sFiSsPRINT"CHANGE TO: °s 
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3268 FOR X=1 10 8:G0SUB666: IFCHS 
=""THENRETURNEL SECS=C$+CHS :PRINT 
CHS: sNEXTX : PRINT 

3265 Fi$=C$:G0SUB4200:LSET UiS=C 
HRS(C) :PUTH ,R6 

3278 RETURN 

3386 ’-P2 FLAG 

3305 C$="":PRINT:PRINT°P2 FLAG: 
* sF2$:PRINT"CHANGE TO: °: 

3318 FOR X=1 TO 8:GOSUB686: IFCHS 
="* THENRETURNELSEC$=C$+CH$ : PRINT 
CHS; sNEXTX sPRINT 

3315 F2%=C$:G0SUB4268:LSET U2$=C 
HRS$(C) sPUT#1 ,R@ RETURN 

3356 ‘-BOARD ENTRY- 

3355 PRINT:PRINT*BOARD ENTRY:";B 
C:PRINT*CHANGE 10: °; 


3365 GOSUB45@ : IFVAL (CHS) (256THEN 


LSET UES=CHRS(VAL(CHS)) sPUT@1 ,R 
8 :RETURN 

3466 PRINT :PRINT°CHANGE TO: °: 
3485 GOSUBS5@ : IFCHS=""THENRETURN 
3416 IFLENCCHS) 4THEN3466 

3415 LSET USS=CHS:PUT#1 ,R@sRETUR 
N 

3458 ’- 

3455 RETURN 

3508 ’- 

3585 RETURN 

3008 ’-TIME OUT- 

3555 PRINT :PRINT"PRESENTLY TINE 
OUT:":TM:PRINT"CHANGE TO: °s 
3968 GOSUB456 : IFCHS=" “THENRETURN 
3569 C-VAL(CHS) :IFC<256THEN LSET 
UOS=CHRS(C) :PUTHI RO 

3578 RETURN 

3686 ’- 

3605 RETURN 

3658 ’- 

3659 RETURN 

3788 ’- 

3785 RETURN 

3798 “-DATE TIME 

3755 PRINT:PRINT°MONTH: °: 

3768 GOSUBSS@ : IFCHS="° THENRETURN 
ELSE M=VAL(CHS) 

3765 PRINT"DAY: °; 


3778 GOSUB6S@ : IFCHS=""THENRETURN © 


ELSE D=VAL(CH$) 

3775 PRINT"YEAR: °s 

3788 GOSUBSS6: 1FCHS=* "THENRETURN 
ESLE Y=VAL(CHS) 

3785 PRINT"HOUR: °: 

3788 GOSUB458 : IFCHS=""THENRETURN 
ELSE H=VAL(CHS$) 

3798 PRINT"MINUTE: °: 

3795 GOSUB65S6 : IFCHS=" “THENRETURN 
ELSE MI=VAL<CHS$) 

3796 LSET UDS=CHRS(M)+CHRS(D)+CH 
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RS(Y)+CHRS(H) +CHRS(MI) :PUTHI RB 
3797 RETURN 

4000 ’-FIGURE NAME/LOCATION 
4865 Al=]NSTRCUNS ,CHRS(6)) 

4016 NAS=LEFT$(UNS ,Al-1) 

4615 A2=INSTRCAI +1 , UNS , CHRS<8)) 
4028 LOS=MIDS$<UNS ,Al+1 ,A2-A1-1) 
4625 RETURN 

4108 ’-DECIMAL TO BINARY 

4165 F=ASC(C$) sE=128:C$="" 

4118 FOR @1 T0 8 

4415 JE INT(F/E) 

4128 IF J=@ THEN C$=C$+"@"ELSECS 
=($4°4° 

4125 F=F-(E#J) :E=E/2 

4138 NEXT @ 

4135 ’PRINTF$ 

4148 RETURN 

4206 ’-BINARY TO DECIMAL 

4265 WLENCC$) :E=1:F=8 

4216 FOR QW 70 1 STEP -1 

4213 IFMIDS(C$ ,0,1)="1° THEN F=F+ 
E 

4228 E=E22:NEXTOQ:C=F :C$=CHRS(C) 
4225 RETURN 

6666 ’-ENTER USER IN LOG 

6085 CLS 

6616 PRINT :PRINT 

6815 PRINT"NAME: ": :G0SUBC5@ 
6628 IFCHS=""THENRETURN 

6825 NAS=CHS 

6838 PRINT°FROM: °; :60SUB656 
6635 IFCHS=""THENRETURN 

6646 LOS=CHS: IF LENCNAS)+LEN(LOS 
+2) S6THENPRINT"NAME/LOCATION TO 
0 LONG!" 60706868 

6845 PRINT"PASS: "s:GOSUBé5@ 
6858 PUS=CHS 

6855 PRINT°AUTHORITY: °; :GOSUB45 
6 

6868 JFCHS=°°THENRETURNELSEIFVAL 
(CHS) D255THENG®55 

6865 AUEVAL (CHS) 

6676 PRINT*P1 FLAG: ";:GOSUB65@ 
6875 IFCHS=""THENRETURNELSEIFLEN 
(CHS) <> 8THENGB78 

6688 PIS=CH$ 

6885 PRINT"P2 FLAG: "s:GOSUB65@ 
6896 JFCHS=""THENRETURNELSEIFLEN 
(CHS) <>STHENG885 

6895 P2$=CHS 

6180 PRINT"REGISTER FLAGS: °::60 
SUBSS6 

6185 IFCHS=""THENRETURNELSEIFLEN 
(CHS) <>8THENG166 

6118 RS=CHS 

6115 PRINT*BOARD ENTRY MENU: °:: 
GOSUB45¢6 

6128 BES$=CHS 
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6125 PRINT“TIME OUT: °; :GOSUB6S6 
6136 JFCHS=""THENRETURNELSE IFVA 
L¢ CHS) 259THEN6125 

6135 TIS=CH$ 

6148 PRINT°SYSTEM MENU: °;:GOSUB 
638 

6145 IFLENCCHS) 4THENGI4@ELSE SM 
$=CHS 

6286 PRINT’OK TO SAVE (Y/N)? °; 
6285 GOSUB456 : IFCHS="Y° THENS216E 
LSEJFCHS="N°THENG@68ELSE6285 
6216 Ki=LOF (1) sLSET UMS=MKNS<8): 
LSET U7S=CHRS(@) :LSET USS=CHRS(8 
)sLSET ULS=CHR$(6) 

6215 LSET UNS=NAS+CHRS(8)+LOS+CH 
R$(B):LSET UPS=PWS+STRINGS(8 6) 
6228 C$=R$:G0SUB4206 :LSET URS=CH 
R$(C):LSET UAS=CHRS (AU) 

6225 C$=P1$:G0SUB4200:LSET U1$=C 
HRS(C) :C$=P23:G0SUB4288:LSET U2$ 
=CHRS(C) 

6238 LSET UES=CHRS(VAL(BE¢)) :LSE 
T USS=CHRS(6):LSET UUs="°" 

6235 LSET UMS=CHRE(@):LSET UDs=S 
TRINGS(5,6) :LSET U3$=""sLSET U4$ 
6248 LSET UOS=CHRSCVAL(TI$)) sLSE 
T USS=Si8 

6245 LSET SP$="" 

6275 Ki=LOF({) 

6286 Ki=Kitl :PUTH Ki 

6285 TFKI (2THENS288 

6296 RO=Ki :RETURN 

7666 ’-QUIT- 

7085 CLOSE :CLS:PRINT :PRINT :PRINT 
7616 PRINTTAB(5)" i-RESTART 

7013 PRINTTAB(S)"2-RETURN TO BBS 


7628 PRINTTAB(S)"3-EXIT TO DOS’ 
7625 ’ 

7038 GOSUB68E 

7035 IF VALCCHS) STHEN7@38 

7646 ON VAL(CHS)+1 6G0T07885, 7845 


7058, 7055 

7045 RUN 

7058 LOAD"COBBS/SYS" ,R 

7055 PRINT’ ACCESS: "s :60SUB 
675: 1FCHS="REBOOT CLEARED" THEN 
POKEKHAC7D ,&HA3:POKEGHACTE ,&HO8 : 
END ELSE RUN 

8868 ’-PRINT LISTING- 

s005 ’ 


8616 IFSC=@THENPRINT°USER #° :R6- 
1:TB=@ ELSE PRINTHSC, "USER #° ;U- 
1:TB=18 

8828 GOSUB4808 :PRINTHSC , TAB(8)"A 
) °sNAS:PRINT’B) ° UPS 

8825 PRINT#SC,TAB(TB)"C) °sLO$ 
8636 CS=URS :60SUB4100 :PRINTASC ,° 
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D) "sC$:RFS=C$ 

8635 PRINTASC ,TABCTB)°E) *sASCCU 

A$) sTABCTB+16)°F) "sCVNCUS$) sPR= 

ASC(UAS) :LG=CVN( USS) 

8848 PRINTHSC ,TABCTB)"G) *s:C$=U 

1$:G0SUB4166 :PRINTASC C$: :F1S=C$ 

sPRINTHSC ,TABCTB+16)°H) "5 :C$=U2 
:60SUB4166 :PRINTASC ,C$:F2$=C$ 

8845 PRINTHSC ,TABCTB)"I) °sASCCU 

E$) sTABCTB+16)"J) °3US$sBO=ASCCU 

ES) 

8856 PRINTASC,TABCTB)°K) °sTABCT 

Bt16)°L)" sASCCULS) 

8855 PRINTESC ,TABCTB)"M) °sASCCU 

0$) sTABCTB+16)"N) °:TM=ASC(U0S) 

8868 PRINT#SC ,TABCTB)°O) ° sCVNCU 

M$) sTABCTB+16)"P) ° sASC(U7$)#256 

+ASC( UBS) 

8065 PRINTHSC,"@) LAST FLAG: ":A 

SCCLEFTSCUDS ,1))3°/" sASCCMIDS(UD 

$,2,1))5°/" sASC(MIDS(UDS .3,1))5° 
* sASC(MIDSCUDS ,4,1))5°s° sASCCM 

1D$<UD$ ,5,1)) sPRINT#SC °° 

8676 RETURN 

9286 ’-OPEN USERLOG- 

9285 FS$="USERL/SYS" 

9218 OPEN*D® #1 ,FS$,96 

9215 FIELD#1,56 AS UN$,8 AS UPS, 

1 AS UR$,1 AS UAS,1 AS U1$,1 AS 

U2$, 1 AS UUS,1 AS UES,S AS USS, 

J AS UM$,5 AS UD$,1 AS U3$,1 AS 

U4$ 1 AS UOS,1 AS UL$,4 AS US$, 
AS U7$,1 AS U8$,7 AS SPS 

9226 Ki=LOF(1) sRETURN 

9225 FIELD#1 ,946 AS PUS:G0T09228 

9300 ’-OPEN USERL/BAK- 

9305 FBS="USERL/BAK:"+DR$(D) 

9316 OPEN'D" ,8#2,FBS ,96 

9315 FIELD#2,946 AS US 

9326 ’ 

9325 K2=LOF(2) :RETURN 

9766 ’-CD CHECK- 

9785 IFPEEK(4658)=@THEN9748 

9718 CO=PEEK(65385)AND32 

9713 IFCD<@ORPEEK( 4657) (OTHENS 

738 

9746 RETURN 

9758 LOAD*USER/SYS" ,R 

9888 ’ 

9885 6070625 

9815 ’-FLAG INPUT- 

9828 Fe="" 

9825 FOR X=1 TO 8 . 

9838 GOSUBSE8 :FS=FS+CHS :PRINTCHS 


9835 PRINT :RETURN 
9858 ’-LINE ENTRY- 
9855 LINE INPUTCHS 
9868 RETURN 
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Listing 4: SMP EDI 


@ ’-COBBS (SMP/ED]) «(C1984 
BY RICHARD DUNCAN 

) CLEARS668 | 

18 REM 

186 60701666 

686 LINEINPUTCHS 

685 RETURN 

6590 ’-LINE INPUT- 

655 LINEINPUTCHS 

668 RETURN 

1066 ’-PURGE MESSAGE BAS- 

1085 ’ 

1616 ’ 

1615 PRINT"READY TO PURGE?" ::G0S 
UBé38 

1628 IFLEFTS(CHS ,1)="Y°THENI@25E 
LSEEND 

1825 PRINT :PRINT:PRINT :PRINT°HDR 
/SYS DRIVE: °; :60SUB666 sHS=VAL(C 
HS) sPRINTHS 

1638 PRINT"HDR/BAK DRIVE: "3:G0S 
UB600 sHB=VAL (CHS) :PRINTHB 

1635 PRINT"MSG/SYS DRIVE: *3:60S 
UB468@ :MS=VAL (CHS) sPRINTMS 

1646 PRINT°MSG/BAK DRIVE: °;:60S 
UB466 :MB=VAL (CHS) :PRINTNB 

1842 PRINT"MINIMUM MESSAGE: "53:6 
OSUB698 :MG=VAL (CHS) 

1845 PRINT:PRINT® CORRECT? °::6 
OSUB458 

1658 JFLEFTS$( CHS, 1)="Y"THENI@66E 
LSE1600 

1668 CLS:PRINT:PRINT :PRINT"PURG] 
NG HEADERS’ 

1665 GOSUB9888 : GOSUB9 186 

1108 ’-PURGE HEADER- 

1185 GETH! ,1:LSET LIS=HIS$sLSET J] 
2$=H2$:LSET 13$=H3$:PUTH2, 1 K2=1 
1118 FOR R=2 TO Ki 

1115 GET#1 ,RsN=CVNCH1$) :PRINT"RE 
CORD #°:N; 

1128 GOSUBS8G8 | 

1125 TFMIDS(FL$,2,1)="1" OR N<NG 
THENPRINT® <DELETED)" :GOTO1148 
1138 K2=K24i:LSET 11$=H1$sLSET | 
2$-H2$:LSET 13$=H3$ 

1135 PUTS&2,K2:PRINT 

1148 NEXT R 

1143 CLOSE :PRINT:PRINT"MESSAGE H 
EADERS PURGED.° 
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1288 ’-PURGE MESSAGE BASE- 

1205 PRINT:PRINT*PURGING MESSAGE 
BASE® 

1218 GOSUB 9150 :RX=LOF(2) :CLOSE 
1215 FOR R=2 70 RX 

1228 GOSUB9158:GETH2,R 

1225 RS=CUN(H6$) :RE=CUN(H7$) :PRI 

NT®MESSAGE #° sCVNCHIS) ; 

1238 CLOSE :60SUB9208 :GOSUB9360:R 
1=K2+1 

1235 FOR AERS TO RE 

1248 GETH1 ,A:LSET MX$=NGS 

1245 K2=K2+1 sPUTH2 ,K2 

1258 NEXT A:R2=K2:CLOSE 

1255 GOSUB9I58:GETH2,R:LSET Hés= 

MKNS(RI) :LSET H7$=MKNS(R2) 

1268 PUT#2,R:CLOSE :PRINT:NEXT R 
1278 PRINT:PRINT*VERIFYING FILES 
"sPRINT® — HDR/BAK® ; :GOSUB9168 
1275 FOR =1 10 LOF(2):GET#2,A:N 
EXTA: CLOSE :PRINT 

1288 PRINT" NSG/BAK"; :GOSUB938 
8 

1285 FOR A=1 10 K2:GET#2,A:NEXT: 
CLOSE :PRINT:PRINT 

1308 ’-KILL OLD FILES- 

1305 / 

1318 / 

1315 PRINT:PRINT:PRINT*KILL AND 
COPY FILES? *; 

1328 GOSUB480:IF CHS<)*Y"THEN EN 
D 

1325 PRINT*YES" :PRINT :PRINT 

1338 PRINT°KILLING OLD HEADER"; 
1335 FHS="HDR/SYS:"+RIGHTS(STRS< 
HS) ,1):KILL FH$:PRINT 

134@ PRINT*KILLING OLD TEXT®; 
1345 FNS="NSG/SYS:" +RIGHTS(STRS< 

MS) 1) :KILL FM$:PRINT 

1358 PRINT"COPYING NEW HEADER’; 
1355 HBS="HDR/BAK: "+RIGHT$(STRS< 
HB) ,1):COPY HBS 70 FHS:PRINT 
1348 PRINT*COPYING NEW BASE"; 
1345 MB$="NS6/BAK:°+RIGHTS(STRS( 

MB) ,1):COPY MBS TO FM$:PRINT 
1378 PRINT :PRINT 

1398 END 

8880 ’-DECIMAL 10 BINARY- 

gees ’ 

8018 F=ASC(H2$) :E=128:FL$="" 
9015 FOR O=1 T0 8 

8828 JeINT<F/E) 

8025 IF J=@ THEN FLS=FL$+"@"ELSE 
FLE=FL¢e"s° 

8030 F=F~(EaJ) sE=E/2 

8035 NEXT Q:RETURN 


continued on Page é2.cccseeseee 
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THE EXPANDED COLUMN 


by Bob Delbourgo 





GRAPHS 


{PLEASE NOTE: You need _ the 
Delbourgo’s Expanded Color Basic to be 
able to use this program. 6G.) 


So many of you have purchased 
EXPANDED COLOR BASIC that, after 
consultation and agreement with 
Graham, we thought it might be 2 good 
idea to include an occasional program 
written in this enhanced lanquage. In 
vis Way, many of you will be able to 
benefit from your aquisition and 
perhaps you may be encouraged § to 
submit a program yourselves to prove 
the good use you have made of it. 

This 15 a program to Kick off, so to 
speak. It makes use of the graphic and 
*EXTRA commands and a few other 
things, like scrolling and boarders. 
But best of all it uses the facility 


THE LISTING: 


{ ‘GRAPHS IN EXPANDED BASIC BY D 
aniel and Bob Delbourgo, Oct. 19 


3 CSAVE"GRAPHS® 
4 IFINKEY$=""THEN4 

9 “REMEMBER TO RUN'G® AND LOAD + 
EXTRA BEFORE RUNNING THIS PROGRA 

M 

1@ TEXTON:FILL 10241535, 254 

15 B=142 

20 BORDER(@ ,@)-(31,15),B 

98 PRINT268,"A GRAPHICAL EXHIB 
ITION® ;:PRINT@I32,"IN EXPANDED 
COLOR BASIC"; 

48 PRINT#228,"DANIEL AND BOB DEL 
BOURGO® ; 

58 PRINTS324,"HIT ANY KEY 10 
START": 

98 IFINKEYS="" THENB=B4 16: IFB=278 

THENB=1 42 

92 FORT=17050 :NEXTT s IF INKEY$=""T 
HEN2® 
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of being able to write on graphic 
screens without painful DRAW strings 
of the ordinary EXTENDED BASIC. Indeed 
the whole accent of the program is on 
graphs with captions; four options are 
available: 

1. Bar Graphs or Histograns, 

2. Pie Graphs, 

3. Charts, & 

4. Function Plots. 

If you go through the Listing you 
should be able to adapt the program to 
suit your own needs, though the 
construction is rather general and 
allows for a variety of inputs on your 
part. 

_ The emphasis being on EXP, let us 
highlight a few novel features in the 
Listing. We have used FILL and BORDER 
commands to make an interesting Title 
Card. Then we have moved to writing on 


93 FORJEGTO? BORDERC J ,.J)-<¢3)-d,! 
J-J) ,255-16%d sFORT=1T098 sNEXTT , J 
166 TEXTOFF sPMODES,1:SCREENS ,4:P 
CLS:COLOR6:PRINT@32, GRAPHICAL M 
ENU® : COLOR? 

116 PRINT:PRINT'(1) Bar Graphs”: 

PRINT"(2) Pie Graphs" :PRINT"(3) 
Charts” sPRINI°«4) Furs tions” 

126 COLORE PRINT SPRINT ‘PRESS NUM 
BERK KEY* 

136 J$=INKEY$:1F1$="" THEN! 38 

146 I=INSTR¢" 1234" ,1$) s 1FI=OTHEN 
136 ELSE ON 1] GOT0266 568 888,11 

66 

208 PRINTS@,"":PCLS:COLORS:PRINT 
"BAR GRAPHS’ :PRINT: COLORS: PRINT" 
Heading” :COLOR?: INPUTHS:COLORS:P 

RINT"Number of items along X-ax! 
S$" COLOR? : INPUTAN :XN= INT CXN) s FX 

N<2THEN288 

218 COLORS:PRINT"Lowest point of 
range (along Y)" :COLOR?:INPUTY! 
:COLORE 

215 COLORé:PRINT"Highest point o 
frange (along Y)":COLOR?:INPUTY? 
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the graphic screen in various PMODEs. 
At the end of each option we used 
PSCRolling before returning to the 
main menu. But perhaps the most 
interesting thing to people who are 
already familiar with EXP’s syntax is 
that we have applied the power of the 
DOT command (see Lines 1178 and 1198) 
to allow one to enter any function as 
a string and then execute the string! 
In this respect EXP is quite unique. 


Two final points. You will of 
course need to run "6" before anything 
and you will also have to load the 
EXTRA commands so as to enable the DOT 
command afterwards. We hope this 
EXPANDED offering will stimulate you 
to more exhilarating programming and 
we shall look forward to reading other 
submissions. 


228 IFY2{=Y¥] THENSOUNDI6 ,2:60T02 
10 

225 PRINT :DIMACXN) :FORI=1TON 
238 COLOR8:PRINT"Item #°1>:PRINT 
"Value" : COLOR? : INPUTAC]) 

239 IFACI)<Y1 OR ACI)>Y2 THEN236 
2486 NEXT! 

243 XS=21 OS XN: YS=XS/2 XX=XSYY=Y 
Ss TFXX) 1 6THENKX=1 6: YY=8 

298 PCLS: SCREEN! ,8 

259 FORI=OTOXN-1 :Y=170-1582¢(AC 1+ 
1)-Y1)/0¥2-Y1) sX=XS41424: COLORS: 
LINECX ,¥)-(X4XS 176) ,PSET ,B 

268 LINECX#XS , 178)-<(X4XS4XX 1 78- 
YY) ,PSET sLINE-(X#XS#XX Y-YY) PSE 
TsLINE-(X#XX ,Y-YY) ,PSET:LINE-(X, 
Y) ,PSET | 

263 LINECX4XS ,¥)-(X4#XS4XX Y-YY), 
PSET 
278 -FORK=2T0XS-1STEP2:COLOR6:LIN 
ECX#K ,¥#1)-(X+K, 169) ,PSET sNEXTK 
273 FORK=2TOXX-1STEP2: COLOR? :LIN 
ECX#XS#K ,Y-K/2)-(X4XS+K 1 78-K/2) 
,PSET :NEXTK 

288 FORK=1TOXS-1STEP2:COLOR8:LIN 
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ECX#K ,Y-1)-(XtXX#K ,Y-Y¥41) PSET: 
NEXTK 

289 NEXT] 

298 PRINT215,¥2; :PRINT2239,Y1; 
306 LINE(24,28)-(248,176) ,PSET ,B 
sLINE(246 , 1 78) -(240#XX,,176 -YY) ,P 
SET sLINE-<2484XX ,26-YY) ,PSET:LIN 
E-(244XX ,28-YY) , PSET:LINE-(24 , 28 
) PSET :L INE( 246 , 28)-(2484XX , 20-Y 
Y) ,PSET 

318 PRINTO4 ,HS:PRINT 8246 ,° 1] TERS? 
+ sFORI=1 706 :PRINTO64+1 427 ,MIDSC" 
VALUES", 1,1) 3 NEXT] 

328 IFINKEYS="°THEN326 

338 FORT=17024:PSCRC@ ,6)-<3! ,23) 
,U:PSCR(8 , 24)-(31 47) ,D:NEXTI 
346 TEXTOFF :RUNI 66 

388 PCLS:PMODE3 , 1 :COLORS:PRINT23 
» PIE GRAPHS" :PRINT 

318 COLORS:PRINT* Input Headi:g*: 
COLOR? : INPUTHS sPRINT 

528 COLOR6:PRINT"How many entrie 
s"+sCOLOR?7: INPUTXN:XNE INT (XN) 3 JF 
XN<2THENS 28 

320 JI=XN:A=BsDIMACKN) :DIMASCXN) 
sPRINT :FORI=1TOXN 

327 COLORS:PRINT°Entry 8°] s3"nane 
" sCOLOR? : INPUTA$¢ I) 

938 COLORS:PRINT*Entry €°)s°4°:C 


OLOR? s INPUTACI) :1FAGI) 1@67HENS3 


8 
535 AEAtA(I) :IFADIQBTHENIJ=I-1:A 
$(1-1)="Other® st -xNe! 6070548 
546 NEXT! 

558 PNODE4, 1 :PCLS1:SCREENI 1 :CJR 
C1E( 140,96) ,72,0:P1=9.14159265 
555 LINE(169,96)-(232, 96) , PRESET 
#0: FORI=1TOI I sAeAtACT) sBRA-ACI 
)/2sL INE (1 684723CDS¢-24P 1 94/108) 
9647 24SIN(-24P1 W4/1083)-( 140,96 
) PRESET 

548 PRINT232#1-32,A$(1) : :LINE(44 
Bal ENCAS(1)) ,1281-6)-(458C05¢ -25 
P]4B/100)41 48,964 45%SIN(-2#P14B/ 
188)) ,PRESET 

578 NEXT! 


CoCo Cat 


COMPUTERS CAV ONLY 
GENERATE THE If 
THAT MAW HAS CREATEO. — 













IW OTHER WORDS- WE 
ARE THE MASTERS Auo 
THEY ARE OR SLA 


575 TFACI@OTHENB=At 2: PRINT 93231 - 
32° Othe: ” PAINTS 45 #COS¢ -2P 1 4B/ 
166)+168 ,96+453SIN(-29P] #B/388)) 
y@ ,@sLINEC 44, 12"1-6)-(454C0S¢ -2% 
P}#B/186)41 68 ,96¢45%SIN(-22P13B/ 
188)) ,PRESET 

988 IF INKEY$=""THENSGS 

378 FORJ=H1T024 :PSCR(8 ,8)-¢31 , 23) 
sUsPSCRCB ,24)-(3) .47)°,D :NEXTJ 
395 RUNI86 

$86 PMODE4 ,1:PCLS:SCREENI ,6 

818 PRINT@12,°CHARTS® :PRINT 

826 PRINT°In this example we hav 
e taken the interest rates of 
a number of countries, expresse 
d as DATA statements and transc 
ribed theminto charts." 

825 PRINT:PRINT® HIT ANY KEY TO 
SEE THE CHART’ 

838 IFINKEYS=" *THEN838 

835 DATA FRANCE ,15,16,16,15.5,15 
0514.9 

836 DATA BRITAIN, 13,15,14,13,11. 
3,11 

837 DATA USA,13,15.5,14,13,18.5, 
11.5 

838 DATA GERMANY ,18,9.5,9,9.5,8. 

3,8 

839 DATA JAPAN,7.5,8,7.5,8.9,8.5 
Ps 

848 DATA SWITZ. ,5,5.59,9,0,4.0,4. 
354 

845 PCLS! :SCREENI ,6 

846 LINE(16,6)-(2546,188) PRESET, 
B 

847 PRINT@6 ,°20°: sPRINTO449 "8": 
858 FORK=1T046:READAS J sFORJE1TOS 
sREADD:LINE(16448%J , 188-162D)-(- 
32+482J , 188-1418) PRESET : I=D :NEX 
TJ ,K 

855 PRINT#S8, FRANCE”; :PRINT@152 
,"BRITAIN® ; sPRINT2177,°U.S.A": 
856 PRINT9262 , "GERMANY ; :PRINT@3 
62," JAPAN”: sPRINT@362 , °“SWITZERLA 
ND°; 

857 PRINT#486,°1 982 Interest 









VES/ 





ees 


=n 
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Rates”: 
868 IFINKEY$=""THENS6@ 
878 FORJ=1T016:PSCR(@,0)-(15,47) 
pL sPSCRC16,8)-(3) ,47) ,RsNEXTIsRU 
N186 
1186 PMODE4 ,1:PCLS1 :SCREENI , 1 
1118 PRINT"Enter the function of 
x" s INPUT F¢ 
1128 INPUT"Minimum value of x"3X 
! 
$4138 INPUI"Hax imum value of x" 5X 
2 
1135 IFX2¢=X1_ THENSOUND! ,16:GOTO 
1138 
1146 INPUT "Minimum value of y’: 
Y1 
1158 INPUT"Maximum value of y":¥ 
2 
1135 IFY2<{=¥1 THENSOUND! ,16:6070 
1158 
1168 PMODE4 ,1:PCLS1:SCREENI ,1 
1178 X=XisLINE(16,28)-(256 188), 
PRESET ,B:. °Y="4F$:\WE1 668(Y-¥2)/ 
(¥1-¥2)+28 1A) 1 SE THEME 1 S8ELS 
EJF 26THENWE 26 
1175 PRINT#8 , FS; :PRINT249¢,°x":: 
PRINT 9486 XJ s sPRINT@568 ,.M] DS$<STR 
$(X2) ,2,3); :PRINT@32,¥23 sPRINTO4 
48 ,Yis 
1188 FORH=18TO254STEP2:X=X14¢H-1 
6}¥#(X2 -X1)/248 
1498 .°Y="4FSsVEL dBeCY-¥2/07-¥ 
2)+28 
1268 }FV)1 8 THENV=1S6EL SE] FY<26T 
HENV=26 
1210 LINECH-2 \WW)-CH,V) PRESET :V 
Ya 
4226 NEXTH 
1238 JFINKEYS=° “THEN 238 
1248 FORJ=6T015:PSCR(6 ,6)-¢15,47 
) R:PSCR(16,8)-(31 ,47) ,LsNEXTJ 
1258 RUNIG@ 


THAT /8 -— EXCEPT 
FOR THE OCCASIOVAL 
POWER SURGE! 





LIFE WITH FORTH 


by John Redmond 


I've concluded that sy past 
articles on Forth have been a bit on 
the ponderous side - no fun. 
Therefore, this month, a game! It is 
John Conway's famous Game of Life. 
The aim is to populate the world in 
just the right way. Each creature is 
placed in a cell of an array. In our 
case, this array has the dimensions 
64 x 32, to match the low-res mapping 
of the cells. If a creature is ina 
cell with more than three neighbours, 
it smothers: if it has less than two, 
it dies of loneliness. Furtheraore, 
if an empty cell has three 
neighbours, a creature will be born 
into that cell in the next world. 

In coding thie game, which turned 
out to be very easy, I've tried to 
show how much fun it can be to use 
Forth. The words have been named to 
give a Genesis flavour (if you're a 
pessimist, you sight like to change 
ther to get an Apocalyptic feeling). 
As always, with a Forth program, the 
highest-level word, in this case 
LIFE, should tell you a lot about the 
function of the prograr. When LIFE 
is invoked, 

an EDICT is iaesued, 

CREATION occurs 

a cycle of JUDGENEST and RENEWAL ic 
repeated 

until REST is obtained. 


Next, we look at EDICT which, quite 

reasonably, spells out the rules. 
CREATION is your chance to play God 
and design a world to your liking, 
but (beware) you will be subjected to 
JUDGEMEET. This word surveys the 
OLDWORLD and, on the basis of where 
HAPPIBESS is found, decides which 
creatures will inbabit the NEVVORLD 
when RENEVAL occurs. And ca it 
continues until you (God) want a 
REST. 
For the most part, I have kept the 
coding at the simple, if whimsical, 
level. The two arrays OLDVORLD and 
WEVVORLD are accessed in the simplest 
of ways, using OFFSET and the base 
address. This can be done such sore 
elegantly, using a specially defined 
ARRAY word, but we can talk about 
that some other tine. 

The words used in CREATION and 
RESPOND are simple, but useful 
general tools for interactive 
graphics (a Forthcoming Rainbow 
nini-series). Try using them for 
your own applications. 


During the 1970s, structured 
programming was all the | rage but, 
using standard Paecal for instance, 
it can become an awful nuisance. It 
can become necessary to dream up all 
sorts of Boolean variables, like 
continuing, walid, complete, etc., so 
that the program knows whether to 
continue at certain points. One of 
the better aspects of C is the 
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ability to make unstructured exits, 
with or without a returned value. 
Look at the word RESPOND, which 
decides what to do in reeponse to a 
pressed key. There are six valid 
inputs and, for structured logic, 
this would require six levels of if 
. elee .. if .. else if .. etc. 


In any language, this sort of 
conditional nesting is unreadable and 
error-prone. So, if a mgatch is found 
in RESPOND, the stack is cleaned up, 
the appropriate action taken and an 
unstructured EXIT is performed. It's 
easier to read - and it’s easier to 
add to or subtract from the list. 
Forth has NUCH better ways of aaking 
multiple decisions, but they will 
have to wait for another article. If 
you're impatient, The keyboard 
interpreter of th A*FORTH editor uses 
a decision array to make sense of 
more than 30 choices. Another way is 
with a CASE word. The standard IF .. 
ELSE .. way is the worst way, apart 
from spaghetti code. 

The up-and-coming trendy way of 
making complex decisions is by means 
of decision tables. The word HAPPY 
is a very simple example. It has to 
decide whether a cell in the OLDWORLD 
is happy on the basis of its number 
of nearest neighbours. The rules 
are: 


if the cell is occupied (STATUS=1) 
and it has 2 or 3 neighbours, then 
the cell LIVES in the NEVWORLD; 

if the cell is empty (STATUS=0) and 
it has 3 neighbours, then it LIVES 
in the NEVVORLD; 

otherwise the cell will be empty in 

the NEWVORLD. 


The structured logic is terrible. 
Look at FEIGHBOURS. Using nested 
loops, it count the occupied cells in 
a 3 x 3 matrix centred on the cell in 
question. The count is sosetizes 
inaccurate. If the cell is occupied 
(STATUS=1), NEIGHBOURS returns the 
true count + 1 (the maximum count is 
therefore 9). Now HAPPINESS is a 2 x 
9 array. The first nine elements are 
valid for STATUS=0 (i.e., the offset 
is 9 x 0); the elements for STATUS=1 
have an offset of (9 x 1= 9). All 
HAPPY then needs to do is add the 
further offset (number of neighbours) 
and return the byte value (1= happy 
and O= unhappy). JUDGEMENT then 
takes the appropriate action. Look 
at how simple and fast the code is 
for HAPPY and note that we can 
introduce an entirely different set 
of rules for HAPPIWESS simply by 
changing the pattern of 0 and 1 
values in its array. Forth at its 
best and another chance to play God. 
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This version of Life was dashed off 
pretty quickly and it can be made to 
go significantly faster. (How? Where 
is all the time taken up?) And it 
wastes a lot of memory for’ the 
arrays. You see, memory has been set 
aside for two worlds. Each is a byte 
array, yet only one bit in each byte 
has been used (bit 0). It is a 
simple step to use a bit array (which 
would take only one-eighth of the 
space). Think about bow you would do 
this. The words that have to be 
changed are the array access words, 
INSERT, ZAP, STATUS, etc., and the 
words they invoke. Another, more 
complicated, approach is to use a 
single array which would have 
different (non-zero) values which 
code the fates of the different cells 
in the next world. 

To show the syntactic flexibility 
of Forth, I've put in some quite 
unnecessary fun words live TRANSFORM 
and DARKEN. It’s quite a language. 

Each cycle of the Game of Life 
takes about 21 seconds. As I said, 
there is scope for improvement but 
I’me sure that it is much faster than 
Basic (does anyone have a timing for 
arrays of the same size?). 


\ THE GAME OF LIFE 
\ WRITTEN BY JOHN REDMOND 
\ IN AXFORTH 23/11/85 


HEX 

88 CONSTANT CURSOR 

400 CONSTANT SBASE 

200 CONSTANT SSIZE 

40 CONSTABT ARRAYWIDTH 
ARRAYVIDTH 1- CONSTANT XMAX 
20 CONSTANT ARRAYHEIGHT 
ARRAYHEIGHT 1- CONSTANT YNAX 
ARRAYWIDTH ARRAYHEIGHT * 
CONSTAET VORLDSIZE 


7000 CONSTANT OLDVORLD 
7800 CONSTANT NEWWORLD 


VARIABLE NEAR 

VARIABLE (HARG) 

VARIABLE COLOUR 80 COLOUR ! 
CREATE POINTER 4 ALLOT 


: LINE ¢ #) OF KIN O MAX 
20 * SBASE + CURSOR ! ; 


: MARGIN ( #) (MARG) ! ; 


: COLUMNS ¢ #) 
CURSOR @ FFEO AND + CURSOR ! ; 
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A a 


: MLINE LINE (HARG) 
COLUMES ; 


: WAIT INKEY DROP ; 


: OFFSET ( X, Y--ADDR) 
ARRAYWIDTH X + ; 


: OLDSPOT ( X, Y--ADDR) 
OFFSET OLDVORLD + ; 


HERE 8 C, 4 C, 2C, 1C, 
: MASK LITERAL + Ce ; 

: MAP ( X,Y--BYTE, ADDR) DUP 2/ 
5 << ROT DUP 2/ ROT + SBASE + 
>R ( ADDRESS) 1 AED SWAP 

( SAVE XOFFSET) 1 AND 2* + 

( ADD TO YOFFSET) MASK R> ; 


: (PIXEL) ( BYTE, ADDR) DUP Ce 
ROT OR SWAP C! ; 


: PIXEL ( X,Y) MAP (PIXEL) ; 


: (-PIXBL) ( BYTE, ADDR) DUP Ce 
ROT FF XOR AND SWAP C! ; 


: ~PIXEL ( X,Y) MAP (-PIXEL) ; 
: STATUS OLDSPOT Ce ; 

: ?RENOVE ( X,Y) 2DUP STATUS 
NWOT IF -PIXEL ELSE 2DROP 

THE 5 


: COORDS POINTER 2€ 2DUP 
?REMDVE ; 


(UP) 1- 0 MAX ; 

(DOWN) 1+ YMAX KIB ; 
(LT) 1- O MAX ; 

(LEFT) SWAP (LT) SWAP ; 
(RT) 1+ XMAX NIP ; 
(RIGHT) SWAP (RT) SWAP ; 


: CHANGEPOINTER ( X,Y) 
2DUP POINTER 2! PIXEL ; 


: UP COORDS (UP 
CHANGEPOIRNTER ; 


: DOWN COORDS (DOVE) 
CHANGEPOIRTER ; 


>: LEFT COORDS (LEFT) 
CHANGEPOINTER ; 


: RIGHT COORDS (RIGHT) 
CHANGEPOINTER ; 


INSERT ( X,Y) OLDSPOT 1 SWAP 
Cc! ; 


: ZAP ( X,Y) OLDSPOT 0 SWAP 
Cc! ; 


: KEEP POINTER 2@ IBSERT ; 
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: REMOVE POINTER 2@ ZAP ; 


CREATE HAPPINESS 12 ALLOT 
HAPPINESS 12 0 FILL 

1 HAPPINESS 3 + C! — 

‘1 HAPPINESS OC + C!. 

1 HAPPINESS OD + C! 


: CHANGECOLOUR COLOUR @ 10 + 
FF AND 80 MAX COLOUR !:; 


; WALL SBASE SSIZE ROT FILL ; 
: TRANSFORM WORLDSIZE CMOVE ; 
: DARKEN WORLDSIZE 0 FILL ; 

: COLOURED COLOUR e ; 


: DAWN COLOURED WALL YMAX O DO 
xXMAX O DOI J STATUS IF 1 J 
PIXEL THEN LOOP LOOP ; 


: REWEVAL WEWWORLD OLDWORLD 
TRANSFORM NEVWORLD DARKEN 
DAWN CHANGECOLOUR ; 


: REST INKEY 3 = ; 


: HAPPY ( #,X,Y--1T/F) STATUS 9 
* + HAPPINESS + Ce ; 


: LIVES ( X,Y) OFFSET NWEWVORLD 
+ 1 SWAP C! ; 


: NEIGHBOURS ( X, Y-~#) 0 HEAR 
! DUP (DOWN) 1+ SWAP (UP) 
POINTER 2! DUP (RT) 1+ SWAP 
(LT) DO POINTER 2@ DO J I 
STATUS NEAR +! LOOP LOOP WEAR 
e ; 


: JUDGEMENT YMAX 0 DO XMAX 0 
DO I J NEIGHBOURS I J HAPPY IF 
I J LIVES THEN LOOP LOOP ; | 


: RESPOND ( CHAR) DUP ASCII K 
= IF DROP KEEP EXIT THEE DUP 
ASCII R = IF DROP REMOVE EXIT 
THEN DUP ASCII @= IF DROP UP 
EXIT THEN DUP OA = IF DROP 
DOWN EXIT THEN DUP 9 = IF DROP 
RIGHT EXIT THEN & = IF LEFT 
THER ; 


: CREATION 80 COLOUR ! 
COLOURED WALL 20 10 2DUP 
POINTER 2! PIXEL OLDWORLD 
DARKER WEWWORLD DARKEN BEGIN 
IBKEY DUP 3 - WHILE RESPOND 
REPEAT DROP ; 


: EDICT PAGE 7 MARGIN 
1 MLINE .”* LIFE WITH AXFORTH" 

2 MLINE ." BY JOHN REDMOND.” 

4 HLINE .” MOVE THE CURSOR" 

5 MLINE .” WITH THE ARROW KEYS;”" 
6 MLINE ."_KEEP OR REMOVE A” 

7 MLINE .” CELL WITH K OR R &’ 

8 NLINE .” STOP WITH <BREAK>” 
AFTER EACH ROUND," 
YOU CAE ABORT WITH" 
<BREAK> OR GO OF’ 
WITH ANOTHER KEY.” 


R 
E 
= 


WAIT ; 
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: LIFE 
EDICT 

CREATION : 
BEGIN JUDGEMENT REWEV 
REST UNTIL ; | 


\ ROUTINES FOR KEEPING AWD 

\ DISPLAYING TIME IN SECONDS. 
\ THEY USE THE 50 HZ TIMER 

\ OF EXTENDED BASIC. 

\ BY JOHN REDMOED 9/11/85 


HEX 
112 CONSTANT (TIME) 


: TIME ( -- INTEGER) 
¢€ USED TO INITIALIZE TIMER) 
(TIME) ! ; 


: . TIMER (TIME) @ 0 2DUP D+ 
( CONVERT TO LOHG INTEGER) 

( AND DOUBLE IT TO GIVE THE) 
( TIME IN 1/100THS OF SECS. ) 
<# # # ASCII . HOLD #S #)> 
TYPE SPACE ." SECONDS” ; 


\ EXAMPLE OF USE: 
\ 0 TIME (other code) .TIMER 


DECIMAL .: 


: WIEST 0 DO ( test word) 
LOOP ; 

: TESTS ( HUMBER) O TIME O DO 
1000 WIEST LOOP .TIMER ; 


THE test word CAN BE ANY 
WORD THAT YOU WISH TO TIXE. 
NOTE, THOUGH, THAT THE STACK 
ALIGNMENT MUST BE MAINTAINED, 
OTHERWISE STACK OVERFLOW OR 
UNDERFLOVW WILL OCCUR. 


an a a a a 


THEN TYPE IW: 
(e.g.) 1000 TESTS <CR> 


“fF 


SIMPLE FORTH WORDS 

FOR INSERTION OF ACCURATE 
TIMING LOOPS INTO PROGRAMS 
BY JOHN REDNORD, 9/11/85 


“447 


DECIMAL 

: SECONDS ( #) 
0 DO 

15789 0 DO LOOP 
LOOP ; 


\ THE VALUE OF 15789 IS QUITE 

\ ACCURATE FOR MY COCO. YOURS 
\ MAY WEED A SLIGHTLY DIFFBRENT 
\ VALUE. 


: MIWUTES ¢ #) 
0 DO 

60 SECOEDS 
LOOP ; 


: HOURS ( #) O DO 60 MINUTES 
LOOP ; 


\ USAGE: (B.G.) 

\ 1 HOURS 7 MINUTES 20 SECONDS 
\ (THIS WILL INTRODUCE THE 

\ APPROPRIATE WAIT LOOP. ) 
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CoCo CONNECTION: 





INPUT / OUTPUT DRIVER ROUTINE 


by Geoff Fiala 


(To utilise this program you will 
require one of our CoCoConnections - 
the unit which allows you~ to 
interface your computer to the real 
world. 

The model railway project is 
progressing nicely - further news and 
hints next month! G.) 


This software routine provides the 
following features: 
a) allows the user to specify the 
initializing of each of the 4 user 
ports 1A,1B,2A and 2B as an input or 
output port 
b) For any port programed 
(initialized) as an output, the user 
can set an output condition on any 
port line without affecting the output 
condition of the other port lines. 
c) For any port programed 
(initialized) as an input, the user 
can check the input status of any port 
line. 


The progranne is written in the fora 
of a demonstration programme using 
BASIC LANGUAGE subroutines to perform 
the functions outlined above. This 
allows the user to adapt these for 
their cae particular programe 
requirenent. In doing this al] that is 
required in most cases would be a 


changing of the Keyboard input 
statements to BASIC assignment 
statements eg. 

line 30---- PRINT “ENTER 1/0 


MODULE BASE ADDRESS :° 
line 31---- INPUT ADR 

could be replaced by the following: 
line 38---- ADR = 65468 


The features of the programme are 
best demonstrated by coanecting the 
LED Display Board supplied with the 
COCO Connection to one of the Ports 
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and connecting the Push Button 
Switch to function as an inpet source. 
This should be done before loading the 
software 


USING THE PROGRAMME 


a) When the prompt "ENTER 1/0 NODULE 
BASE ADDRESS" is displayed, enter 
65468. This is the default base nemory 
address setting of the Colo 
Connection. If you are using a 
different base address then enter it 
instead. 

b) Next the programme requests the 
configuration for each input port. 
Enter °]" if you want the port to be 
configured as inputs or “O° if you 
want it configured as outputs. All 4 
ports are to be configured. 

c) After configuring al the ports 
the next prompt asks whether you want 
to set an output condition or check 
for an input condition. Enter "I" to 
check for an input condition or "0° to 
set an output condition. 

d) Next you are asked to ° ENTER 
INPUT/OUTPUT STRING COMMAND® = =§ as 
follows: 

i) to set outputs: Enter a 4 character 
string as follows eg 


2BLIL 


PORT NO 1A,1B,2A,2B--1}1----OUTPUT LINE CONDITION 
J L= logic LOW 
PORT LINE NO. 1-8----- ] H= logic HIGH 


The above string specifies that Port 
2B, line 1 is to be set "LOW". If the 
LED dispaly board is wired to this 
port, the LED connected to line 1 will 
be turned °ON’. Similarly if the next 
Output Command String is: 

* 21° 


then the LED connected to line 8 on 


Port 28 will also be turned *ON'. 
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ii) To check for an input : Enter a 3 
character string as follows eq: 


2A6 


PORT NO. 1A,1B,2A,2B--1]---PORT LINE NO. 1-8 


The above string specifies a check 
for an input on Port 2, Line 6. If 
the Push Button Switch was connected 
to this Port Line and and is held down 
to simulate an input and the above 
comand string is entered , then an 
“INPUT DETECTED’ message will be 
displayed. 

Similarly if the next Input Command 
string is: 

"1Ai" 


then PORT Tine 1 on Input Port 1A will 
be checked for an Input. 

No error checking has been included 
to check for the correct input of the 
Command String. Therefore if you enter 
an incorrect string, just re-enter the 
correct string on the next command. 
PROGRAMME STRUCTURE 


As was mentioned previously the 
programme has been written using 
subroutines for the various functions. 
These are briefly described below: 
Lines 300-340 

The initialization routine for Ports 
designated as Inputs 
Lines 460-458 

The initialization routine for Ports 
designated as Outputs 

These two routines are general 
purpose subroutines and require that 
the Variable "A" = the memory address 
of the Port to be initialized -, This 
is set-up in lines 32-88 | 
Lines 3866-3830 

These determine the Port memory 
address form the entered connaad 
string. 





Lines 3106-3238 

This subroutine further decodes the 
command string A$ to determine the 
Port line number and Output condition. 
It also works out the correct mask 
byte pattera to mask out the other 
port lines and only changes the line 
specified . As the position of the 
port lines for ports 1A and 1B are the 
reverse of Ports 2A and 28 two 
different Mask byte patterns are 
required and these are calculated as 
well. 

Lines 4000-4698 

This subroutine contains the Input 

check routine , and decodes the 
command string AS to find the Port 
and Port line nuaber to be checked. It 
| also works the required Mask byte 
pattern such that an input condition 
for the line specified will onty be 
checked. All other port lines are 
masked or blocked ovt. 
The numeric variable "IP° will equal 
zero if an input condition Clogic LOW) 
was detected., otherwise "IP* will be 
a non-zero value. 

Therefore on return. fron this 
subroutine line 188 checks the valve 
of “IP° for a zero value. 

Using the above routines and 
changing the keyboard input statenents 
to BASIC assignment statements, one 
could write a programe to check 
certain inputs for a "ON" or "OFF" 
condition and depending on this tera 
*ON° audible alarms or buzzers. This 
could fore the basis of a burgular 
alarm system using the Colo Connection 
and the Color Computer. 


The Listing: 


1 CLS 

2 PRINT°INPUT/OUTPUT DRIVER FOR 

THE COCO CONNECTION. 

3 REM WRITTEN BY GEOFF. FIALA -- 
“REV 61-18/12/85 

2 CLS 

16 PRINT “GENERAL PURPOSE INITIA 
LIZATION ROUTINE" 

26 PRINT 

36 PRINT "ENTER 1/0 MODULE BASE 

ADDRESS :° 

31 INPUT ADR 

32 REM CONFIGURE PORT 1A 

35 AS="1A" :AEADR:G0SUB 268 
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4@ REM CONFIGURE PORT 1B 

45 AS="1B" :A=ADR+2: GOSUB 268 

26 REM CONFIGURE PORT 2A 

68 AS="2A" :ARADRt4: GOSUB 206 

7@ REM CONFIGURE PORT 28 

88 AS="2B" :AHADRI6: GOSUB 286 

96 CLS: PRINT" ALL PORTS INITIAL 
IZED" 

95 ARADR 

168 PRINT "ENTER CONDITION TO BE 
SET/CHECKED" 

165 TIMER=6 

118 PRINT *I=INPUT® 

128 PRINT °O=OUTPUT" 

136 INPUT"ENTER ‘1’ OR ‘0’ :°;BS 
146 PRINT “ENTER INPUT/OUTPUT ST 
RING COMMAND* :PRINT s INPUT A$ 

196 1F BS="1" THEN 178 ELSE IF B 

$="0" THEN 168 ELSE GOTO 160 

168 GOSUB 3868:REN GET PORT ADDR 

ESS 

162 GOSUB 3166:REM SET OUTPUT CO 

NOTION 

164 PRINT "OUTPUT CONDTION SET* 
165 GOTO 198 

176 GOSUB 4@86:REM CHECK INPUT C 

ONDITION 

188 IF IP=@ THEN PRINT" %2%]NPUT 

DETECTED#2#° ELSE PRINT "##3N0 | 

NPUT DETECTEDS%2° 

198 SOUND 268,5:G0TO 108 

268 CLS:PRINT 2192,°ENTER INITIA 

LIZATION FOR PORT ";A% 

218 PRINT "1 = INPUTS’ 

220 PRINT °O = OUTPUTS" 

238 PRINT 

246 PRINT "ENTER LETTER (1 OR 0) 
3" s INPUT BS 

298 IF B$="1° THEN 388 ELSE IF B 

$="0" THEN 466 

268 CLS:G0T0 268 :REM NO MATCH 
366 REM INPUT INITIALIZATION ROU 

TINE 

316 REM A=PORT ADDRESS 

326 REM ALSO INITIALIZES BUFFERS 
AS INPUTS IF INSTALLED. 

338 POKE Ati ,@:POKE A,@:POKE Ati 
68 

§ 


488 REM OUTPUT INITIALIZATION RO 
UTINE. 

410 REM INITIALIZES BUFFERS AS 0 
UTPUTS IF INSTALLED. 

420 REM A=PORT ADDRESS. 

430 REM ALL OUTPUTS WILL BE PROG 
RAMMED TO A LOGIC "1" AFTER INIT 
IALIZATION 

448 POKE At1,4:POKE A,255:POKE A 
+1,8:POKE A,255:POKE A+! ,52 
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458 RETURN 
3080 REM FIND PORT ADDRESS 

9018 ADS=LEFTS(A$ ,2) 

3020 IF ADS="1A" THEN ADR=A ELSE 
IF ADS="18" THEN ADReAt? ELSE 1 
F ADS="2A" THEN ADR=At4 ELSE IF 

ADS="28" THEN ADR=At6 

3038 RETURN 

3180 REM GET OUTPUT LINE NUMBER 

AND ADJUST 

3128 N=ASC(MIDS(A$,3,1))-49 

3130 REM GET OUTPUT LINE SETTING 
3140 IF RIGHTS(A$,1)="H" THEN 31 
90 

3158 REM SET BIT PATTERN 70 TURN 
PORT LINE "ON" (LOW) 

3151 IF LEFTS(AS,1)="1° THEN 316 
a 

3152 REM ADJUST BIT PATTERN FOR 
PORT 2 

3153 Y¥ =255-INT(2°(7-N)) 

3154 GOTO 3178 

3168 V=255-INT(2°N) 

3178 POKE ADR,(PEEK(ADR) AND V) 
3180 RETURN 

3198 REN SET BIT PATTERN 10 TURN 
PORT LINE *OFF* (HIGH) 

3200 IF LEFTS(A$,1)="1" THEN 32! 
Q 

3281 REM ADJUST BIT PATTERN FOR 
PORT 2 

3282 V =INT(2°(7-N)) 

3283 GOTO 3228 

3218 V =INT(2°N) 

3228 POKE ADR,(PEEK(ADR) OR V):R 
EM SET OUTPUT LINE 

3238 RETURN 

4080 REN FIND PORT ADDRESS 

4018 GOSUB 3080 

4028 REM GET INPUT PORT LINE NUN 
BER AND ADJUST 

4038 N=ASC(MIDS(AS ,3,1))-49 

4040 REN SET BIT PATTERN MASK FO 
R CHECKING INPUT LINE 

4050 IF LEFTS(A$,1)="1" THEN 406 
6 

4051 REM ADJUST BIT PATTERN FOR 

PORT 2 

4052 VEINT(2°(7-N)) 

4053 GOTO 4878 

4068 VeINT(2°N) 

4078 REN CHECK INPUT LINE 

4072 1P=PEEK(ADR) 

4074 IF IP <> 255 THEN 4888 ELSE 
GOTO 4098:REM NO INPUT 

4075 IF PEEKCADR) <) 255 THEN 48 
88 ELSE IP=255 

4098 IP=IP AND V 

4098 RETURN 
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INTROL 


Getting Started 








By Bruce Warner 
efore diving into the considera- 
ble technical information re- 


Be: to operate under OS-9, I 
want to explain that I will give only the 
information you need at any given time. 
It’s more important to know that the 
Kernel plays a vital part in managing 
the OS-9 operating system than to read 
24 pages of what the Kernel does and 
how it manages to do what it does. For 
beginners, I like to keep things simple 
by speaking in broad terms, by saying, 
for instance, “the Kernel supervises the 
Operating System.” 

First off, OS-9 is an operating system, 
not a programming language, or even a 
program (not in the sense that it allows 
you to write a letter or calculate a row 
of figures). An operating system is what 
comes between the hardware and the 
software. It manages the software and 
directs the output to the hardware. 
That’s about as simple as it can be 
stated. This diagram should help you 
see the relationship between the compu- 


ter, its operating system and the appli- 
cations for which it may be used: 













Computer 


Operating System 
Applications|Input/ Output 


The operating system manages pro- 
gram execution and computer control 
of hardware. By this definition, there 
even must be an operating system while 
operating under Disk Extended BASIC, 
and there is. The difference is that Disk 
Extended BASIC comes with a “trans- 
parent” operating system. It is wired 
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(ON TO OS-9 


With The OS-9 
Operating System 


into the BASIC ROM, leaving you with 
what appears to be a computer without 
an operating system. Do not let the 
appearance fool you. Disk Extended 
BASIC is a DOS (Disk Operating Sys- 
tem). 


Booting OS-9 

Let’s do something with OS-9. First, 
we'll make OS-9 control your Color 
Computer. To accomplish this feat, you 
must change from one operating system 
to another. This requires a machine 
language program to turn off the ROM 
for the 64K RAM mode, load the OS- 
9 operating system and execute the OS- 
9 Kernel. This is done on the Color 
Computer by one of two methods; the 
method used depends entirely on which 
version of Disk Extended BASIC you 
have. The two methods for booting are 
as follows: 

1) For Disk Extended BASIC 1.0, place 
the boot disk in Drive 0 and type 
RUN”*”. You are prompted to select one 
of two options. You can either boot OS- 
9 or test the speed of your disk drives. 
Type 8 for boot and wait for the Color 
Computer to tell you when to change 
disks and enter the OS-9 system disk. 

2) If you have Disk Extended BASIC 
1.1 or newer, the procedure is consid- 
erably easier. Put your system disk in 
Drive 0 and simply type in DOS. 

Regardless of the method used, the 
computer sends the disk drive’s read 
head to Track 34 to start reading any 
program loaded on that track. This 
program executes the procedures we 
talked about earlier, causing OS-9 to 
take over your Color Computer. 
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your Color Computer. 

If you have DOS 1.0 and want to 
upgrade, it’s a simple and inexpensive 
process. You do not have to buy a whole 
new disk controller. All you need is one 
of the DOS ROM chips, available from 
a number of suppliers for $39 or less. 

If you decide it’s time to upgrade, 
open your ROM pack (make sure the 
screw located under the controller label 
is removed before opening the case). 
Note the location of the notch on the 
Disk ROM chip before removing it. 
Remove the chip and insert the replace- 
ment chip with the new one (make sure 
the notch is in the same location as the 
one you took out). Be careful not to 


bend any of the pins on the chip when 
inserting it. Close the case and replace 
the screw. Job complete. 


What Time is it? 

When booting OS-9 you are promp- 
ted to enter the time. OS-9 is very 
dependent on time and uses a clock for 
a number of functions. The format 
should be entered as requested. Spaces 
can take the place of punctuation 
marks, but all other spacing is required. 

The future validity of the filing sys- 
tem depends on your entries. If you 


have a real-time clock (like the one 
available on the PBJ PC-Pak), you'll be 
able to add the time setting to the start- 
up procedure file by entering the year 
in the start-up file. 

If you haven’t already done so, get 
out the Getting Started With OS-9 
booklet and make a backup copy of the 
OS-9 System disk. Your system master 
should only be used to make copies for 
personal use. 
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After entering the time, you are 
operating under OS-9. If you have never 
operated under an advanced operating 
environment, get ready for a unique 
experience. 

Unlike Disk Extended BASIC, OS-9 
has two directories it works from at all 
times — the data directory and the 
execution directory. When you boot 
OS-9, the data directory will be the 
ROOT directory on the OS-9 system 
disk. The execution directory will be 
contained within the CMDS directory 
on the same disk. 

Just to make sure the screens we are 
viewing are set up for the same display, 
type in and enter tmode -upc. This 
command changes the display on the 
terminal (TV or monitor) from all 
uppercase to an upper- and lowercase 
display. Now your display will look the 
same as the examples. 

To gét a look at the current data 
directory, try typing the DIR command 
you may have used in Disk Extended 
BASIC and see what happens. After 
hearing your disk drive churn a bit, you 
should see a directory that looks like 
this: 


DIRECTORY OF 23:22:14 
OS9Boot CMDS SYS 
DEFS startup 


You can easily see that this is a direc- 
tory, but OS-9 doesn’t stop there. It 
continues by telling you it is a listing of 
the current data directory (indicated by 
the period). The time on your system 
should be different. 

This looks a lot different from the 
directory you may be used to under 
Disk Extended BASIC, FLEX or Star- 
DOS. This is your OS-9 system disk 
with all its ROOT directory files. Direc- 
tories are special files designed to help 
organize a disk that may contain 100 or 
more programs and files. Of course, you 
can also incorporate files that stand on 
their own, like the start-up file, but that 
would fill up the screen in no time and 
waste one of the major features of an 
OS-9 system. 


A Closer Look at the System Disk 

There are five files on the OS-9 
system master. They include the OS 
9Boot file (this is the file we used to boot 
OS-9 earlier), a directory of all the 
system’s commands available, a direc- 
tory of system files (things like pass- 
words and message of the day), a direc- 
tory of established procedures used by 
OS-9 assembly language programs and 
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a start-up file. 

As I said earlier, OS-9 has two default 
directories. As soon as you have booted 
OS-9, the system locates the directory 
on Drive 0 named CMDS and makes it 
the current execution directory. 


Why Won't It Run? 

At almost every meeting of the North- 
ern Virginia Color Computer Club, we 
can expect one question to come up. 
What I am about to say is the answer 
to that question. This may be the most 
important thing you will ever learn 
about OS-9. Please pay very close 
attention. OS-9 has an established. . . 
logical. . . order for locating programs 
and procedures to be executed. The 
order in which a procedure is searched 
is as follows: 

1) If acomplete pathlist is defined, the 
program/ procedure is called from that 
pathlist and immediately executed (a 
complete pathlist would resemble 
/dO/cmds/ dir). 

2) If a complete pathlist is not de- 
fined, OS-9 looks for the program in 
memory. If the program/ procedure 
called is located in memory, it is exe- 
cuted immediately. 

3) The next place OS-9 looks for a 
program is in the current execution 
directory. This has been a source of 
confusion for a great number of people. 
Because of this, trying to run BASICO9 or 
C under OS-9 has resulted in creating 
more errors than programs because you 
have not copied BASICO9 or C from its 
master disk into the current execution 
directory. This is in large part because 
of the documentation you have re- 
ceived. If you want to find all of the 
programs in the current execution 
directory, type dir x and you should see 
a directory that looks like the following 
example. 


Directory of . 06:21:22 


asm attr backup 
binex build cmp 
cobbler copy date 
dcheck debug del 
deldir dir display 
dsave dump echo 
edit exbin FORMAT 
free ident link 
list load login 
makdir mdir merge 
mfree os9gen printerr 
procs pwd pxd 
rename save setime 
shell sleep tee 
tmode tsmon unlink 
verify xmode 


This directory shows all of the proce- 
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dures available from OS-9. 

_ 4) Finally, OS-9 will look for the 
program as a listing of batched proce- 
dures in the current data directory. A 
procedure is a line you type from the 
OS-9 prompt. Any number of proce- 
dures can be put in a procedure file. 


We'll go into procedure files a little 
later. 
A Note on Control Keys 

There are a number of standards that 
have been set in the computer industry, 
some of which are missing on the Color 
Computer. The most noteworthy is the 
lack of two keys, the CONTROL and ESC 
keys. Both of these are available in OS- 
9. 

Since OS-9 has no need for the CLEAR 
key, it takes the place of the CONTROL 
key, and ESC is accomplished by hold- 
ing down the CONTROL (CLEAR) key 
and pressing the BREAK key. If you ever 
want to get out of executing a program, 
the ESC 1s your “ESCape.” 


Ready to Climb a Tree? 

Ready for a little tree climbing? Of 
course, I mean climbing the OS-9 op- 
erating system of tree directories. From 
here on we wiil discuss the directory 
system: how to get into them, how to get 
out of them, how to create them, how 
to tell where you are in them and how 
to delete them. 

Just to make sure we’re in the right 
mode, type in the command to change 
the terminal to the upper- and lowercase 
mode. If you don’t remember how to 
change to the upper- and lowercase 
mode, try typing in the following com- 
mand and see what happens when you 
enter the dir command: TMODE -UPC. 
The directory should look something 
like the following example. 


Directory of 22:53:47 
OS9Boot CMDS SYS 
DEFS Startup 


What’s in a File? 

Before we go too much further, let’s 
look at how you can tell the difference 
between directories and files in a well- 
organized OS-9 system. Notice that the 
start-up file is displayed in all lowercase, 
the OS9Boot file is in upper- and low- 
ercase, and the remainder of the files is 
displayed in all uppercase. 

The TMODE command alters the 
mode of the device it is directed to 
change (in this case the display on your: 
TV or monitor) and the -upc means to 
turn off the all uppercase display. Now 
there is an upper- and lowercase dis- 
play, and your Color Computer will 
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display the directories with some degree 
of logic, provided the rules of file 
naming are followed. 

Here are the rules: 1) Name all direc- 
tories with all uppercase characters; 2) 
Name other files with any combination 
of upper- and lowercase characters. 


This is a marked improvement over 
a number of other operating systems 
(especially a certain three-letter com- 
pany that claims to be the leader in the 
computer industry). Both FLEX/Star- 
DOS and MS-DOS do not permit the 
use of lowercase characters in file- 
names! FLEX/Star-DOS does not 
permit the use of directories, either. 

Another item worth noting is that 
filenames in OS-9 are not limited to the 
traditional eight characters found in 
FLEX, Star-DOS, MS-DOS or Disk 
Extended BASIC. With OS-9 you are 
“limited” to names that are one to 29 
characters long. Just imagine the luxury 
of a filename that tells exactly what’s in 
the file! 

If these rules are followed, you'll 
know what to expect from any filename 
simply by looking at its name. 


Even More than You Want to Know 

OK, so you’re not all that organized 
yet. Neither are too many of the rest of 
us (there is a naming mistake on your 
original disk if you look in the CMDS 
directory). Therefore, OS-9 was deve- 
loped with an extension of the directory 
command to allow a second look at any 
directory and find out what is in it. This 
time type in the following line: dir e. 
Now you should see a-directory that 
looks very much like this one: 


Directory of . 20:02:29 
CREATED ON OWNER NAME 
ATTR START SIZE 
83/06/02 1921 O OS9Boot 
~----e A 3032 
83/06/02 1956 O CMDS 
d-ewrewr 3C 620 
83/06/02 2002 0 SYS | 
d-ewrewr 164 AO 
83/06/02 2002 — O DEFS 
d-ewrewr 17F CO 


The ‘e’ tells OS-9 you want to know 
everything about the directory, and it 
tells you everything! For thoroughness, 
we'll look at the information for the 
CMDS directory. It was created on 
June 2, 1983 at 7:56 p.m. The owner of 
the file is the super user. The file is 
named CMDS. Then, we see a crazy 
section of the line, d-ewrewr, which 
we'll cover in the next paragraph. The 
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START is the physical sector on the 
disk where the beginning of the file is 
located, and the SIZE is the number of 
sectors used by the file on the disk. 

The eight characters used to identify 
the file attributes are code letters. Each 
column must contain. either a hyphen 
(-), for not selected, or one specific 
letter. The meaning of each letter is as 
follows: 


Column Letter Meaning 

l D File is a directory of 
| other files 
File may be shared 
by more than one 
user 
File may be 
executed by anyone 
File may be written 
to by anyone 
File may be read by 
anyone 
File may be exected 
by owner and super 
user 
File may be written 
to by owner and 
super user 
File may be read by 
owner and super 
user 


2 S 


> 
mn = mm 


Value in Directories 

Now that you have discovered how to 
identify a file, what makes these direc- 
tories so valuable? Let’s look at a good 


example of a disk used by a writer. 


This example is typical of many 
writers in the computer industry. Many 
of us write for anumber of publications. 


Because of this we need a system that 
is well-organized. 


Making a Directory 

My ROOT directory contains a 
number of files not found on the orig- 
inal OS-9 disk. In addition, I have 
included the following: 

FOR_RAINBOW 

FOR_SOF TNEWS 

FOR NAVY 

RGS_MANUALS 

PERSONAL_FILES 

To create these files on my disk, I use 
the MAKDIR command. Starting from 
the top, I have typed the following lines. 
(To create the “underline character,” as 
in FOR_RAINBOW, press the CLEAR and 
minus sign (-) keys simultaneously.) 

makdir FOR_RAINBOW 

makdir FOR_SOF TNEWS 

makdir FOR NAVY 

makdir RGS_MANUALS 

makdir PERSONAL_FILES 
Now my directory looks like this: 
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Directory of . 12:50:55 
OS9Boot CMDS SYS 

DEFS startup FOR_RAINBOW 
FOR_SOFTNEWS FOR_NAVY 


RGS_MANUALS 
NVCCC_NEWSLETTER 
Before you start wondering how I can 
put so much on one disk, I’ve added a 
five-meg hard disk drive to my ‘E’ board 
CoCo since I last wrote for RAINBOW. 


Going out on a Limb 

Since this is an article for RAINBOW, 
let’s look inside the FOR_RAINBOW 
directory. To get inside it, we must first 
change our data directory. This is done 
by using the CHD command: 


PERSONAL_FILES 


chd for—rainbow 


Notice the directory name does not have 
to be typed in all uppercase after it has 
been created. This saves a lot of time 
and avoids a lot of mistakes. 

The directory now looks like this: 


Directory of 13:00:45 
COVER_LETTERS ARTICLES 
REVIEWS CONTACTS 


Notice that these still are all directories 
(all capital/ uppercase letters). So we'll 
change again. This time, change to the 
articles directory; type chd articles. 


This directory looks a little more useful: 


Directory of . 13:10:15 
OS9_intro OS9 directories 
SCRATCHO3 


This directory also shows one of the 
ways in which OS-9 uses various files. 
The SCRATCH03 files is not a perman- 
ent file. It is created by DynaStar to 
hold the file until a session is completed. 
When finished, the old file is deleted and 
the scratch file becomes the new file. 
The final product is named the same as 
the old file. | 

Now that these directories have been 
created, and we are somewhere down in 
the holes of a directory, how do we find 
out where we are? Let OS-9 tell us! Try 
typing in the following: 


pwd 


The command stands for “print work- 
ing directory.” It gives a listing of the 
current working directory; mine looks 
like this: 


/HO7F OR_RAINBOW/ARTICLES 


It says that I am using device HO (the 
leading slash means it is a device) in the 
FOR_RAINBOW directory and fur- 
ther in the subdirectory ARTICLES. 
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Retracing our Steps 

When an article is finished, you 
should always have a cover letter to go 
with it, so youll want to back out of the 
current directory. OS-9 allows you to 
do this by using shorthand. The period 
(.) indicates one directory level. One 


period is the current level, two is one 
level higher, three is another level 
higher, and so on. There is no reason- 
able limit to the number of periods used. 
Now type: 


chd.. 


This goes back to the FOR_RAIN- 
BOW directory, which looks like this: 


Directory of 13:45:18 
COVER_LETTERS ARTICLES 
REVIEWS CONTACTS 


A third period will take you up to the 


ROOT directory (one level higher). 

Even with five-meg of online storage, 
everything can’t be kept on the system 
at one time. To help solve the problem 
of storage, copy old files over to another 
disk for historical storage and delete 
them from the working disk. 

Suppose you decide to delete a direc- 
tory that’s no longer needed. You can 
start by deleting every file in the direc- 
tory, then delete the directory, or simply 
delete the directory. This is done with 
the DELDIR command followed by the 
name of the directory to be deleted. As 
an example, from inside the FOR 
_RAINBOW directory, type del dir 
contacts. 

After answering the series of ques- 
tions as prompted, you can again type 
the directory command and see some- 


thing like the following. 
Directory of 14:00:27 
COVER LETTERS ARTICLES 


REVIEWS 


With a little foresight, you'll see how 
a file can easily be organized. If there 
are several family members who use the 
computer, directories can be made for 
each member. If you have a business 
and also use the computer for personal 
use, subdirectories can be made for 
personal and business use. 

As promised at the onset of this 
article, we’ve covered directories in the 
OS-9 operating system. With this infor- 
mation, you will be able to get a lot of 
mileage out of a single disk (and even 
more from a hard disk drive). With 
directories, you should now know how 
to get into them, get out of them, create 
them, tell where you are in them and 
delete them. 

Enjoy what you have learned about 
getting started with OS-9. OS-9 can 
help make the most of your Color 
Computer. O 
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NEW OS9 


by Bob Rosen 


A. The Standard Boot for 2.66.68 


TOMAN RFB SCF PIPEMAN 
CLOCK .6@HZ CCDISK CC10 PIPER 
dé C032 PIPE 
d! TERN32 
PRINTER 
p 
5ys60 RS232 
Shell Ti 


B. Driver Changes for the new version. 
1. CCIO/TERN - the Keyboard and display driver for the 
Colour Computer. 

a. CCIO has been split into three separate modules, 
the main module CCIO and two co-modules for output called 
GRFO and (032. 

i. CCIO handles all Keyboard input. 

ii. CO32 handles output to standard display. 

iii. GRFO handles graphics output. CCIO can still 
handle all non drawing functions but the GRFO module is 
required for these routines to work. GRFO is not in the 
standard Boot, but is in the the (CMDS directory and 
Should be loaded if needed. 

b. Changes to (CIO module. 


ii. Keyboard beep on Control 6 - “display 67° 

iii. 72’ Key is now ALT Key to set high order bit 
the typed character. On standard display this generates 
semigraphics characters. 

iv. Support for true lower case on machines with the 
new VDG. 

v. Allows allocation of three graphics buffers and 
selection of which one is the current view buffer. Adds 
possibility for animation. 

c. Changes to graphics routines (GRFO) 

i. Erase circle routine. 

ti. Flood Fill routine. 

iii. Bug fixed to allow drawing in background colour 
in 2 colour modes. 

2. Internal Serial Drivers - PRINTER/P & RS232/T! 

a. User selectable baud rate, word length, stop bits 
and parity from the device descriptor or from the tmode 
utility after the device is initialised. 

i. BAUD byte 

a. bits 6-3 = baud rate 

b. bits 4 = reserved 

c. bits 5-é = word length @=8, 1=7 bits. 
d. bit? = stop bits 61, 1=2 

ii. TYPE byte 

a. bits 6-3 = reserved 

b. bits 4-7 = parity 
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Bob Rosen from Spectrum Projects sent the following 
information relating to the new OS-9 Version 62.66.66 for 


CoCo, soon to be released by Tandy. 


b. Bug fix from 61.81.06 - now no longer need the 
ACIA cartridge installed for the bit banger port to 
operate. (There’s hope for CoCoLink yet! 6.) 

c. New utility to help timing problems, TUNEPORT. 
This utility allows you to fine tune your serial port for 
the baud rate you wish to use so it will work best with 
your printer or terninal. 

3. External Serial Driver - ACIAPAK/T2 

a. Support for changing baud, word length, stop bits 
and parity after device has been initialised sinilar to 
above drivers. 

b. Support for auto answer modens. Driver now uses 
the DCD Jine to tel] if a hangup occurs and all processes 
started will be Killed off by the system so that the next 
caller will not come in where the previous caller left 
off. (Again sounds like CoColink might benefit - yes? 6.) 

4. New Drivers added for additional hardsare. 

a. SSCPAK/SSC - river for the Speech/sound 
Cartridge. 

b. NODPAK/M] & M2 - driver for a 306 baud ACIA 
cartridge addressed at $FF4C and to be used in slot 2 of 
the Multipak. A standard ACIAPAK (addressed at $FF48) can 
be modified to work with this driver. 

c. COBB/TERMSS - CCIO comodule for an 86 column 
display card. 

d. CCHDISK/H@ & Hi - hard disk driver for the 
WO1666-TB1 controller board and ai13 or 35 meg drive. 
This is the standard drive sold by Tandy for their other 
systems but a separate interface card is required to 
interface with the CoCo external bus. 


C. System Changes - Kernel, Clock, IOMAN and Sysgo. 

J. VIRGs - the virtual interupt. Allows for interrupts 
to be used by devices which do not generate physical 
interupts or devices that do generate interupts but are 
located in a MultiPak slot that does not access the CART 
line. 

2. New IJOQNAN - now IOMAN gives up a device’s static 
storage after the last path to the device is closed, this 
will ease the memory fragrentation problems normally 
found ia level 1. 

3. Hard Disk Support - On boot SysGo will attempt to 
change to a device called /H@ and to a comands directory 
at /H@/O4DS. You cannot boot from the hard disk but you 
can boot to the bard disk from the floppy. If the /H@ 
device is not found you will boot to /D@ as usual. 


continued on Page 62....sscecce 
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CORRECTIONS 


“Cooking With CoCo” (Febuary 1985, Page 43): 
Colin Stearman advises us that there is a problem with 
the FLEXIKEY routine in his program. To correct 
this bug, change the following lines in the source code: 


“Getting On The Right Track” (Sept .1985,Page51): 
Colin Stearman also informed us there is a minor 
problem in Listing 2 that causes an 80-track drive to 
access only 142 granules. Insert the following line to 
correct the problem: 


885 IF TRACKS=89 AND VP=142 THEN 





825 - Replace with these two lines: 


ABX 


LDA ,X 


882 - Replace with these two lines: 


ABX 1040 and 1280 to read as follows: 
1948... SC(1) =... (change this statement only 
TST xX 
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688 PRINT:PRINT® ‘YOU CAN TRY TO 
BLOCK THE OTHER SNAKE WI 
TH YOURS." 

698 PRINT@422,°<ANY KEY FOR MORE 
>": s60SUB 348 

700 IF INKEY$="" THEN 768 

716 CLS4:PRINT@32," THE JOYSTIC 
K CONTROLS THE DIRECTION 0 
F YOUR SNAKE." 

728 PRINT:PRINT® WHEN YOU SEE T 
HE SNAKE HEADS, PRESS EITHER f 
ire button TO START THE GAME 


738 PRINT@358,"00 YOU WANT TO PL 
AY"; sPRINT@389 "FAST OR SLOW (f 
OR s)"s:GOSUB 346 

746 AS=INKEYS;: IF AS="F" THEN S=1 
ELSE IF As="S° THEN S=5@ ELSE 6 
OT0 746 

7308 GOT038 

768 “#ER2225NAKE CHASES 228222 
770 /#2e22R0BERT E. RICERREEE 
788 “##15916 WOODPOST PLACEs# 
798 /#R22TAMPA, FL 3362428282 
S08 /xxxezez JUNE 19B4axezeane 





VP=156 


“If Your Horse Comes In First, You Lose” 
(December 1985, Page 11): Two readers, Wilf Sloan and 
Scott Kelly, suggested fixes for a problem in this 
program that causes incorrect scoring. Change lines 
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9080 ’-OPEN HDR/SYS- 

9685 ’ 

9018 F$="HDR/SYS:"+RIGHTS(STRS(H 
$),1) 

9015 OPEN'D" #1, F$,118 

9028 FIELDM1,5 AS H1$,1 AS H2$,1 
a4 AS H3$ 

9825 KI=LOF(1) :RETURN 

9180 ’-OPEN HDR/BAK- 

9105 / 

9110 F$="HDR/BAK:"+RIGHTS(STRS(H 
B) ,1) 

9115 OPEN"D® ,#2,F%,11@ 

9128 FIELDN2,5 AS 11$,1 AS 12$,1 
04 AS 138 

9125 K2=LOF (2) :RETURN 

9158 ‘HEADER/BAK FIELD 

9155 GOSUB9160 

9168 FIELDH2,5 AS Hi$,1 AS H2$,3 
AS H3$,2 AS H4$,88 AS HS$,5 AS 
Hé$,5 AS H7$,1 AS H8$,8 AS SPS 
9165 RETURN 

9280 ’-NSG/SYS- 

9285 / 

9218 F$="MSG/SYS:"+RIGHTS(STRS(M 
$) ,1) 

9215 OPEN"D® , #1 ,F$,88 

9270 FIELDHI ,88 AS NGS 

9225 KI=LOF(1) :RETURN 

9388 ’-NS6/BAK- 

9385 / 

9310 F$="MSG/BAK:" +RIGHTS(STRS(N 
B) ,1) 

9315 OPEN"D" ,&2,F$,88 

9320 FIELDS2,80 AS MX¢ 

9325 K2=LOF(2) :RETURN 








1289... PK=253 .. «(change this statement only) 
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D.Utility Additions & Changes. 
1. Several utilities have been 
modified to alter their output 
format depending upon the size 


of the screen it is being sent 


to. 1f you send a ‘dir’ to the 
standard screen and to /T2 you 
will note a large difference in 
format. The utilities which 
adjust the screen size are: 





dir nadir tmode 
login config dump 
procs tsmon xmode 


2. INIZ has been added to the 
utility set to initialise a 
device. This is useful in 
startup to initialise commonly 
used devices like P. 

3. OS9GEN has a new -s option 
for single drive operation, 
although you must do lots of 
swaps! 

4. TUNEPORT has been added to 
adjust your serial port. 

J. CONFIG - a new menu driven 
utility on a separate disk to 
create custom system disks. Lets 
you choose between all the 
possible drivers to create a 
disk that has on it just what 
you want and need for your own 
systen, 
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NOW! is the time to subscribe to 
Australian RAINBOW 


Copies of back issues can be obtained, subject to the availability of stocks, by using this 
order form and marking clearly which issues you require to be sent to you. 

Each issue costs $4.50 including postage and packing. Please enclose your cheque/money 
order made payable to: Australian Rainbow Magazine, PO Box 1742, Southport, 4215. 










BOOKS 





RATES 













AUSTRALIAN AUSTRALIAN 
CoCo/MiCo/ sottgold RA'INBOW Byte 
a $3.45 Latest per copy $4.50 ( ] Elementary $5.95 [ ] 
{_} $19 6 months $24.75 (] 


$39.95 
{ ] $31 12 months LJ Medium $9.95 a 


STRALIAN 

Feb '85-Apr '85 (] $3.95 
Aug '84-Jan ‘85 OO $3.25 
to July '84 a $3.00 











Facts 
Advanced $11.95 a 


MiCo Help (MC-10 computer). 
Medium so.9s (_] 
PLUS 


Best of CoCoOz #& 1 
CEducation) 

Best of CoCoOz # 2 
(Games) 

Part 1 for 16K ECB 

Part 2 for 32K ECB 

<Some 16k CB on P1) 


TAPE 39 10.00, DISK $3 21.95 


BULLETIN 
BOARD 


Let your computer talk to ours! 
CoCoLink — a 
Annual Sub $29 








CoCo/MiCo/ softgold 
First Issue Aug ‘84 


C) 


$3.45/copy 








MiCo — 
First Issue Oct '83 


a 


-$3/copy 
MiCoOz 


(MiCo on Tape) $8 ea C) First Issue Dec ‘83 


DISKS & TAPES 


(Aust CoCo on Tape) 
Latest $8 


a 6 months $42 


(] 12 months $75 


First Issue Mar ‘83 Disks — $3.50 ea C] 10 for $29.99 ‘a 
or Debit my Credit Card Month 


Rainbow on Tape (program __ listings) $12 for month of (} 


Please note ihat RAINBOW on TAPE 18 1asued wreguiarly 





Blank tapes 12 tor $18 or $1.70 ea( | 


Cassette Cases , 10 for $5[_] 










or Annually $144 (_] or Debit my Credit Card Monthly C) 


[ITI TTT 


a VISA BANKCARD ] 
MASTERCARD [| 





BLOCK CAPITAL S | i you elready supscnbe to esther Austrahan Rainbow 


or Avetrathan CoCo please piece Subscription No 
PLEASE 










Complete the section delow with one letier. 


igure of space per square 
FIRST NAME SECOND NAME 


Signature 






a CASH 


a CHEQUE 
(] MONEY ORDER 





Telephone 
Number 






Authorised 
Amount$ : 


New Subscription (J 
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GOLDSOFT __ 
Hardware & Software for your TANDY computer. 


HARDWARE 









The CoCoConnection: | 
| Connect your CoCo to the real world and contro! robots, models, experiments, burglar alarms, water reticulation systems — 
most electrical things. | | 
Features two MC 6821 PIAs; provides four programmable ports; each port provides eight lines, which can be programmed as 


an input or output; comes complete with tutorial documentation and software; supplied with LED demonstration unit. 
Switchable memory addressing allows use with disk controller or other modules via a multipack interface; plugs into 
Cartridge Slot or Multipack, uses gold plate connectors; a MUST for the hardware designer and debugger! 


Video-Amp: " 
Connects simply to your CoCo to drive a Colour or Mono monitor. With instructions $25.00 
. . With instructions and sound $35.00 


_ SOFTWARE | 
CoCoOz: 


The programs you see lis.ed in Australian CoCo Magazine are available on CoCoOz! 
-No laborious typing — just (C)LOAD and Go! 




















$8.00 
$42.00. 
$75.00 


$10.95 - 
$102.50 


Each Tape 
Subscription, 6 months 
12 months 


NEW for 1986 ONLY Each DISK 
Subscription on disk, 12 months 







Rainbow on Tape: . 
Australian. The programs you see listed in Australian Rainbow Magazine are available on 


$12.00 
$144.00 


Each Tape 
Subscription, 12 months 


NEW for 1986 ONLY Each DISK 
Subscription on disk, 12 months 


tape. A boon if you don’t understand the language! 
American. We also supply the programs found in American Rainbow on tape. Please 
specify either Australian or American. oO 


~ MiCoOz: 
The programs in the MiCo section of Australian CoCo Magazine. (For MC 10 computers 
_only) | 

Back issues of CoCoOz and MiCoOz are always available on tape only. 


To be released soon: 
GOLDDISK 1000 — programs from ‘softgold’ for your Tandy 1000 on disk, and, 
GOLDDISK 4 — programs from ‘softgold’ for your Tandy Model 4! 


The Best of CoCoOz: 
#1... EDUCATION programs. Fourteen programs for the teacher or parent. 
#2... Part 1...16K GAMES. (Mainly ECB). Sixteen programs to keep you on your toes! 
Part 2... 32K GAMES. Adventures, simulations and arcade games for everyone! — 
#3... UTILITIES. Programs to make your use of the computer easier. 
- Spoolers, Reverse Video, Disk utilities and more. 
#4... BUSINESS programs. Invoicing, Accounts, Creditors and more. 


CoCoLink: 
CoCoLink is our Bulletin Board which you can access with any computer if you have a 300 
baud modem and a suitable terminal program. There is a free visitor's facility, 
alternatively membership entitles you to greater access of the many files available. 

We can also be contacted through Minerva (OTC) and Viatel (Telecom). 


Magazines: 
Australian Rainbow Magazine — THE magazine for advanced CoCo users! 

Australian CoCo Magazine — THE magazine for the new user of a Tandy computer. 
Also suits owners of CoCos, MC 10s, Tandy 1000s, 100s, 200s & 2000s. 


Back Issues: 
Australian Rainbow Magazine. (Dec ’81 to now.) 
Australian CoCo Magazine. (Aug ’84 to now.) 
CoCoBug Magazine. For CoCo — usually 8 programs in each magazine. (Sep '84 to Oct 
’85) 

Australian MiCo Magazine. For Tandy MC 10 computers. (Dec ’83 to Jul ’84) 
Australian GoCo Magazine. For Tandy Model 100 users. (Jul ’83 to Jul ’84) 
See Subscription Page for further details. 


months 
Books: 
HELP: A quick reference guide for CoCo users. . 
FACTS: THE reference for CoCo machine language programmers. 


MiCo HELP: A quick reference for owners of MC 10 computers. Oo 


- Othello: by Darry! Berry 
The board game for your CoCo. Tape 16K ECB 
Say the Wordz: by Oz Wiz & Pixel Software 
. Two curriculum based speller programs for your Tandy Speech/Sound Pack. Tape 32K ECB 


Bric a Brac: 
Blank tapes . . . 12 for $18.00 or $1.70 each. 
Cassette cases... 15 for $5.00. 
| Disks ... (they work!) $3.50 each or $28.95 per box of 10. 


HOW TO ORDER 


$15.00" 
$172.00 






















Each Tape 
Subscription, 12 months 












Per Tape 
Per Disk 















#3 on Disk 








Any two tapes 















Subscription to CoCoLink, 12 























Option 1: Use the subscription form in this magazine. 

Option 2: Phone and have ready your Bankcard, Mastercard or Visa number. 
Option 3: Leave an order on Viatel, Minerva or CoColink, but be sure to include your Name, Address, Phone Number, Credit 
Card Number and a clear indication of what you require, plus the amount of money you are authorising us to bill you. 


PAGE 64 Australian RAINBOW February 1986. 







Computer Hut Software | 


Are proud to onnounece thot we are now the 
sole Australian distributers for - 


ws 


* MARK DATA PAOQDULTS * COGNITEEL 

* COMPUTER ISLAND * DERRINGER SOFTWARE ~~ | 
* GPELTRAL ASSOCIATES * TRAILAD PIETURE CORP. 

* TOM Mik SOFTWARE * ULP TECHNOLOGIES 

* SUBAR SOFTWARE * COMPUTER STORY BOOKS 

* PRICKLY PEAR SOFTWARE * PICOSOFT 

* SPECTALIM PAQJECTS * COASTAL COMPUTER SERUICES 

* PAL CREATIONS * NOVASOFT 

* 


kG MEST SNETMIARE * COLO CASSETTE Cmonthiul 


We have about 300 programs With more on the wag. 
SEE YOUR LOCAL TANDY DEALER 
or send $1-00 for a full catalogue to:- 


ile agcecept :- Computer Hut Software 


* BHNKEARD 21,Willioms Street. 

* MASTERCARD Bowen.Q!1d.4805. 

* UISHEAAD Phone (077)86-2220 
Mee our prise bigt in AUSTRALIAN RAINBOW 
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MAX HUCKERBY 851 45 4315 
LYN DAWSON @49 49 8144.’ 
NORM WINN 871 21 6638 


’ DANDENONG DAVID HORROCKS 83 793 3157 
JUSTIN LIPTON @3 857 5149 

BOB HAYTER 863.783.9748 
’ NARRE WARREN LEIGH EAMES 83 784 4688 
’ NTH EASTERN KEVIN KAZAZES 63 437 1472 
MARIO GERADA 03 743 1323 

IVA DAVIES 83 758 4496 


SCOTT HOWISON 656 23 6816 
KEN RICHARDS 88 384 4583 
ALF BATE 867 52 2465 
GEORGE FRANCIS @51 34 5175 
SOUTH WEST GRAHAM BUTCHER 87 376 3488 MT ISA PAUL BOUCKLEY-SIMONS 877 43 6288 
BRIAN STONE @43-72-1958 
PETER ANGEL 671 68 1628 
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IAN MACLEOD 89 448 2136 
PORT LINCOLN BILL BOARDMAN 686 82 2385 
RON LALOR 0465 83 8223 
PORT NOARLUNGA ROB DALZELL 68 386 1447 
KEVIN GOWAN 886 32 1368 
ROCKHAMPTON KEIRAN SIMPSON 679 28 6162 
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SPECIAL INTEREST GROUPS 
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